436 Allow for larger file upload to upload large reports

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: teal.reporter
 Title: Reporting Tools for 'shiny' Modules
-Version: 0.5.0.9020
+Version: 0.5.0.9040
 Date: 2025-10-20
 Authors@R: c(
     person("Dawid", "Kaledkowski", , "[email protected]", role = c("aut", "cre"),

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(

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))