diff --git a/R/safetyGraphicsApp.R b/R/safetyGraphicsApp.R index e62a7731..7cd9301a 100644 --- a/R/safetyGraphicsApp.R +++ b/R/safetyGraphicsApp.R @@ -13,9 +13,11 @@ #' #' @export #' -safetyGraphicsApp <- function(maxFileSize = 20) { +safetyGraphicsApp <- function(maxFileSize = NULL) { #increase maximum file upload limit - options(shiny.maxRequestSize=(maxFileSize*1024^2)) + if(!is.null(maxFileSize)){ + options(shiny.maxRequestSize=(maxFileSize*1024^2)) + } path <- system.file("eDISH_app", package = "safetyGraphics") shiny::runApp(path, launch.browser = TRUE) diff --git a/man/safetyGraphicsApp.Rd b/man/safetyGraphicsApp.Rd index 6f75fba1..f6ed62e0 100644 --- a/man/safetyGraphicsApp.Rd +++ b/man/safetyGraphicsApp.Rd @@ -4,7 +4,7 @@ \alias{safetyGraphicsApp} \title{Run the interactive safety graphics builder} \usage{ -safetyGraphicsApp(maxFileSize = 20) +safetyGraphicsApp(maxFileSize = NULL) } \arguments{ \item{maxFileSize}{maximum file size in MB allowed for file upload.}