From ecf30870a57b1715ecc8f9323e8d362efe22f587 Mon Sep 17 00:00:00 2001 From: Jesse Pasanen Date: Wed, 18 Oct 2023 12:06:45 +0300 Subject: [PATCH] Change the number of groups to reduce repetitive warnings --- R/splitOn.R | 4 ++-- man/splitOn.Rd | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/R/splitOn.R b/R/splitOn.R index 69bb80810..516203f59 100644 --- a/R/splitOn.R +++ b/R/splitOn.R @@ -72,8 +72,8 @@ #' se_list #' #' # Create arbitrary groups -#' rowData(tse)$group <- sample(1:10, nrow(tse), replace = TRUE) -#' colData(tse)$group <- sample(1:10, ncol(tse), replace = TRUE) +#' rowData(tse)$group <- sample(1:3, nrow(tse), replace = TRUE) +#' colData(tse)$group <- sample(1:3, ncol(tse), replace = TRUE) #' #' # Split based on rows #' # Each element is named based on their group name. If you don't want to name diff --git a/man/splitOn.Rd b/man/splitOn.Rd index 254496ed8..dceae5d4e 100644 --- a/man/splitOn.Rd +++ b/man/splitOn.Rd @@ -89,8 +89,8 @@ se_list <- splitOn(tse, f = "SampleType") se_list # Create arbitrary groups -rowData(tse)$group <- sample(1:10, nrow(tse), replace = TRUE) -colData(tse)$group <- sample(1:10, ncol(tse), replace = TRUE) +rowData(tse)$group <- sample(1:3, nrow(tse), replace = TRUE) +colData(tse)$group <- sample(1:3, ncol(tse), replace = TRUE) # Split based on rows # Each element is named based on their group name. If you don't want to name