Merge pull request #45 from bedapub/tighten-seed-test

Only touch .Random.seed in .GlobalEnv
bedapub · Mar 19, 2024 · f2abf52 · f2abf52
2 parents b796e5c + 9479cc2
commit f2abf52
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-save-random-seed.R b/tests/testthat/test-save-random-seed.R
@@ -11,8 +11,8 @@ scoring_f <- function(...) rnorm(1)
 
 test_that("random seed is saved when no seed is set", {
   # unset random seed
-  if (exists(".Random.seed")) {
-    random_seed <- .Random.seed
+  if (exists(".Random.seed", envir = .GlobalEnv)) {
+    random_seed <- .GlobalEnv$.Random.seed
     on.exit(.GlobalEnv$.Random.seed <- random_seed)
     rm(.Random.seed, envir = .GlobalEnv)
     testthat::expect_false(exists(".Random.seed"))