Add max_size argument to dynamically change maximum size of valid files

DESCRIPTION

@@ -41,4 +41,4 @@ Remotes:
 biocViews:
 Encoding: UTF-8
 LazyData: true
-RoxygenNote: 7.1.0
+RoxygenNote: 7.1.1

R/app_server.R

@@ -5,6 +5,10 @@
 #' @importFrom shinyjs hide show
 #' @importFrom dplyr distinct
 app_server <- function(input, output, session) {
+  ## Change maximum upload size
+  max_size <- golem::get_golem_options("max_size")
+  if (!is.null(max_size)) options(shiny.maxRequestSize = max_size)
+  
   # Load package data in the session (for testing purpose)
   # data("physeq", package = "affiliationExplorer")
   # data("affi", package = "affiliationExplorer")

dev/run_dev.R

 # Set options here
 options(golem.app.prod = FALSE) # TRUE = production mode, FALSE = development mode
-options(shiny.maxRequestSize = 100 * 1024^2)
+# options(shiny.maxRequestSize = 100 * 1024^2)
 options(spinner.color="#0275D8", spinner.color.background="#ffffff", spinner.size=2)
 
 # Detach all loaded packages and clean your environment