BUG FIX: run() for BatchtoolsFuture would update the RNG state, if the future would attach packages. This was because batchtools::saveRegistry() forwards the RNG state

Author: HenrikBengtsson

DESCRIPTION

@@ -1,5 +1,5 @@
 Package: future.batchtools
-Version: 0.12.0
+Version: 0.11.0-9011
 Depends:
     R (>= 3.2.0),
     parallelly,

NEWS.md

@@ -11,6 +11,11 @@
  * Improved performance of batchtools futures by making the removal of
    the **batchtools** registry about 10-15 times faster.
 
+## Bug Fixes
+
+ * `run()` for `BatchtoolsFuture` would update the RNG state, if the
+   future would attach packages.
+
 
 # Version 0.11.0 [2022-12-13]
 

R/BatchtoolsFuture-class.R

@@ -500,7 +500,9 @@ run.BatchtoolsFuture <- function(future, ...) {
     ## will have the same state of (loaded, attached) packages.
 
     reg$packages <- packages
-    saveRegistry(reg = reg)
+    with_stealth_rng({
+      saveRegistry(reg = reg)
+    })
 
     mdebugf("Attaching %d packages (%s) ... DONE",
                     length(packages), hpaste(sQuote(packages)))

R/temp_registry.R

@@ -33,7 +33,9 @@ temp_registry <- local({
     if (length(config) > 0L) {
       names <- names(config)
       for (name in names) reg[[name]] <- config[[name]]
-      saveRegistry(reg)
+      with_stealth_rng({
+        saveRegistry(reg)
+      })
     }
 
     reg