remove big export checks on merges

EpiModel · Oct 15, 2024 · 15e397b · 15e397b
1 parent 6cab1b9
commit 15e397b
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/netsim_scenarios.R b/R/netsim_scenarios.R
@@ -274,6 +274,9 @@ merge_netsim_scenarios <- function(sim_dir, output_dir,
   if (!fs::dir_exists(output_dir)) fs::dir_create(output_dir)
   batches_infos <- EpiModelHPC::get_scenarios_batches_infos(sim_dir)
 
+  oopts <- options(future.globals.maxSize = Inf)
+  on.exit(options(oopts))
+
   future.apply::future_lapply(
     unique(batches_infos$scenario_name),
     function(scenario) {
@@ -371,6 +374,9 @@ merge_netsim_scenarios_tibble <- function(sim_dir, output_dir, steps_to_keep,
   if (!fs::dir_exists(output_dir)) fs::dir_create(output_dir)
   batches_infos <- EpiModelHPC::get_scenarios_batches_infos(sim_dir)
 
+  oopts <- options(future.globals.maxSize = Inf)
+  on.exit(options(oopts))
+
   for (scenario in unique(batches_infos$scenario_name)) {
     scenario_infos <- dplyr::filter(
       batches_infos,