From edb022bcf7521a67ecd7310d8c7e90c20b2b171a Mon Sep 17 00:00:00 2001
From: Henrik Bengtsson <henrik.bengtsson@gmail.com>
Date: Sun, 27 Oct 2024 10:47:26 -0700
Subject: [PATCH] BUG FIX: Fix assertion thinko reported in #271

---
 R/seed.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/seed.R b/R/seed.R
index 10940d8..8168054 100644
--- 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)
 }