Use future.seed=TRUE for better RNG in parallel

Resolves #384
tidyverts · Mar 2, 2024 · d8fbe73 · d8fbe73
1 parent 2717ced
commit d8fbe73
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 2 deletions.
diff --git a/R/model.R b/R/model.R
@@ -105,7 +105,8 @@ Check that specified model(s) are model definitions.", nm[which(!is_mdl)[1]]))
         rep(models, each = length(lst_data)),
         FUN = estimate_progress,
         SIMPLIFY = FALSE,
-        future.globals = FALSE
+        future.globals = FALSE,
+        future.seed = TRUE
       )
       unname(split(out, rep(seq_len(num_mdl), each = num_key)))
     }

diff --git a/R/utils.R b/R/utils.R
@@ -264,7 +264,8 @@ mapply_maybe_parallel <- function (.f, ..., MoreArgs = list(), SIMPLIFY = FALSE)
       ...,
       MoreArgs = MoreArgs,
       SIMPLIFY = SIMPLIFY,
-      future.globals = FALSE
+      future.globals = FALSE,
+      future.seed = TRUE
     )
   }
   else{