diff --git a/R/LoadReporterModule.R b/R/LoadReporterModule.R index 8ac1c787..5b02ecca 100644 --- a/R/LoadReporterModule.R +++ b/R/LoadReporterModule.R @@ -38,6 +38,10 @@ report_load_srv <- function(id, reporter) { shiny::setBookmarkExclude(c("reporter_load_main", "reporter_load")) ns <- session$ns + # Set max request size from package option + max_size <- getOption("teal.reporter.max_request_size", 10 * 1024^2) + options(shiny.maxRequestSize = max_size) + archiver_modal <- function() { nr_cards <- length(reporter$get_cards()) shiny::div( diff --git a/R/zzz.R b/R/zzz.R index c472e296..70326eac 100644 --- a/R/zzz.R +++ b/R/zzz.R @@ -18,7 +18,8 @@ author = "NEST", title = "Report", date = as.character(Sys.Date()), output = "html_document", toc = FALSE - ) + ), + teal.reporter.max_request_size = 10 * 1024^2 ) toset <- !(names(teal_reporter_default_options) %in% names(op))