Set higher future.globals.maxSize in bootstrapSR if not set by user

flr · Nov 4, 2024 · 766358d · 766358d
1 parent 9f4ec45
commit 766358d
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: FLSRTMB
 Title: FLSR in TMB
-Version: 1.1.4.9013
+Version: 1.1.4.9014
 Authors@R: 
  c(
    person("Henning", "Winker", email = "[email protected]",

diff --git a/R/bootstrap.R b/R/bootstrap.R
@@ -33,6 +33,12 @@
 
 bootstrapSR <- function(x, iters=100, method=c("best", "logLik", "relative"),
   models=c("bevholt", "ricker", "segreg"), verbose=TRUE, ...) {
+
+  # SET future.globals.maxSize if not set already
+  if(is.null(options('future.globals.maxSize')[[1]])) {
+    oldopt <- options(future.globals.maxSize=1500 * 1024 ^ 2)
+    on.exit(options(oldopt))
+  }
 
   # COMPUTE average of spr0 by year
   spr0x <- yearMeans(spr0y(x))