updating seed function rmd fail check in macos

jpmonteagudo28 · Aug 2, 2024 · 6573c12 · 6573c12
1 parent 1b484d0
commit 6573c12
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/R/set.char.seed.R b/R/set.char.seed.R
@@ -8,7 +8,7 @@
 #'
 #' @details
 #' Each letter and number in the character vector is assigned a specific number. These
-#' numbers are concatenated and divided by 2^39 - 1, and the remainder of this division
+#' numbers are concatenated and divided by 2^30 - 1, and the remainder of this division
 #' is used as the numeric reproducible seed.
 #'
 #' If you get a warning about 'loss of accuracy", consider using a more succinct character
@@ -40,7 +40,7 @@ set.char.seed <- function(char) {
   num_seed <- as.numeric(paste(split_it, collapse=""))
   num_seed
 
-  seed <- as.integer( num_seed %% (2^31-1) )
+  seed <- as.integer( num_seed %% (2^30-1) )
   return(seed)
 }
 
diff --git a/man/set.char.seed.Rd b/man/set.char.seed.Rd
diff --git a/tests/testthat/test-set.char.seed.R b/tests/testthat/test-set.char.seed.R
@@ -1,5 +1,5 @@
 test_that("returns a numeric vector 1L", {
-  expect_equal(set.char.seed("stupefied lepricon"), 649068544)
+  expect_equal(set.char.seed("hello"), 85121215)
 })
 
 #> test passed