Move a set.seed() command to outside the function call, in order to r…

…esolve a BiocCheck warning. See https://github.com/LieberInstitute/jaffelab/actions/runs/8441621254/job/23121193573#step:23:76 for more.
LieberInstitute · Mar 27, 2024 · 761079f · 761079f
1 parent 906571e
commit 761079f
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 2 deletions.
diff --git a/R/lab_presenters.R b/R/lab_presenters.R
@@ -31,6 +31,8 @@
 #'     ## You'll need to have access to Google Drive through
 #'     ## googledrive::drive_auth() set up.
 #'
+#'     ## Set the seed for reproducibility of the results
+#'     set.seed(20190918)
 #'
 #'     ## Update lab presenters sheet
 #'     lab_presenters(
@@ -65,7 +67,6 @@ lab_presenters <- function(presenters, start_date = "2019-09-18",
     i <- rep(seq(from = 1, to = length(presenters), by = n), each = n)
 
     ## Randomize presenters
-    set.seed(as.numeric(gsub("-", "", start_date)))
     presenters <- sample(presenters)
 
     ## Group presenters (add NAs if missing)

diff --git a/man/jaffelab-package.Rd b/man/jaffelab-package.Rd
diff --git a/man/lab_presenters.Rd b/man/lab_presenters.Rd