BUG FIX: Fix assertion thinko reported in futureverse#271

HenrikBengtsson · Oct 27, 2024 · edb022b · edb022b
1 parent aa124bc
commit edb022b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/seed.R b/R/seed.R
@@ -67,7 +67,7 @@ next_random_seed <- function(seed = get_random_seed()) {
   sample.int(n = 1L, size = 1L, replace = FALSE)
   seed_next <- get_random_seed()
 
-  stopifnot(!any(seed_next != seed))
+  stopifnot(identical(seed_next, seed))
 
   invisible(seed_next)
 }