diff --git a/R/lab_presenters.R b/R/lab_presenters.R index 44ced72..d0ac001 100644 --- 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 index f938dc6..642192c 100644 --- a/man/jaffelab-package.Rd +++ b/man/jaffelab-package.Rd @@ -6,7 +6,7 @@ \alias{jaffelab-package} \title{jaffelab: Commonly used functions by the Jaffe lab} \description{ -The jaffelab contains miscellaneous functions that are commonly used in the Jaffe lab http://aejaffe.com/. +The jaffelab contains miscellaneous functions that are commonly used in the Jaffe lab http://aejaffe.com/. It is similar in spirit to https://cran.r-project.org/package=rafalib and implements several helper functions that were using in Lieber Institute for Brain Development RNA-sequencing projects such as BrainSEQ Phase I, BrainSEQ Phase II, among other ones. } \seealso{ Useful links: diff --git a/man/lab_presenters.Rd b/man/lab_presenters.Rd index 9f91cb1..81f3e46 100644 --- a/man/lab_presenters.Rd +++ b/man/lab_presenters.Rd @@ -48,6 +48,8 @@ if (googledrive::drive_has_token()) { ## 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(