shouldn't delete seed each time actually

emitanaka · Oct 15, 2023 · 102ba06 · 102ba06
1 parent 6b02829
commit 102ba06
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/R/provenance.R b/R/provenance.R
@@ -697,9 +697,8 @@ Provenance <- R6::R6Class("Provenance",
                          save_seed = function(seed, type) {
                            private$record_track_internal()
                            ranexists <- exists(".Random.seed", envir = .GlobalEnv, inherits = FALSE)
-                           if (ranexists) rm(.Random.seed, envir = .GlobalEnv)
-                           stats::runif(1)
-                           if (is.null(seed)) {
+                           if(!ranexists) stats::runif(1)
+                           if(is.null(seed)) {
                              RNGstate <- get(".Random.seed", envir = .GlobalEnv)
                            } else {
                              set.seed(seed)