put back global code

Author: EmilHvitfeldt

R/tune_cluster.R

@@ -326,6 +326,15 @@ tune_cluster_loop_iter <- function(split,
   load_pkgs(workflow)
   load_namespace(control$pkgs)
 
+  # After package loading to avoid potential package RNG manipulation
+  if (!is.null(seed)) {
+    # `assign()`-ing the random seed alters the `kind` type to L'Ecuyer-CMRG,
+    # so we have to ensure it is restored on exit
+    old_kind <- RNGkind()[[1]]
+    assign(".Random.seed", seed, envir = globalenv())
+    on.exit(RNGkind(kind = old_kind), add = TRUE)
+  }
+
   control_parsnip <- parsnip::control_parsnip(verbosity = 0, catch = TRUE)
   control_workflow <- workflows::control_workflow(control_parsnip)
 

tests/testthat/_snaps/tune_cluster.md

@@ -118,8 +118,8 @@
       # A tibble: 2 x 4
         splits          id    .metrics         .notes          
         <list>          <chr> <list>           <list>          
-      1 <split [16/16]> Fold1 <tibble [6 x 5]> <tibble [0 x 3]>
-      2 <split [16/16]> Fold2 <tibble [6 x 5]> <tibble [0 x 3]>
+      1 <split [16/16]> Fold1 <tibble [4 x 5]> <tibble [0 x 3]>
+      2 <split [16/16]> Fold2 <tibble [4 x 5]> <tibble [0 x 3]>
 
 # select_best() and show_best() works