Fix typo and use seq_len

LieberInstitute · Aug 6, 2024 · bc5634c · bc5634c
1 parent f0d4c42
commit bc5634c
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/make_test_sce.R b/R/make_test_sce.R
@@ -5,7 +5,7 @@
 #' @param n_cellType Number of cell types
 #' @param n_donor Number of donors
 #'
-#' @return SingelCellExperiment object with randomly generated counts and colData
+#' @return SingleCellExperiment object with randomly generated counts and colData
 #' @export
 #'
 #' @examples
@@ -29,7 +29,7 @@ make_test_sce <- function(n_cell = 100, n_gene = 100, n_cellType = 4, n_donor =
     )
 
     width <- nchar(as.character(n_cell))
-    rownames(pd) <- paste0("S", stringr::str_pad(1:n_cell, width = width, pad = "0"))
+    rownames(pd) <- paste0("S", stringr::str_pad(seq_len(n_cell), width = width, pad = "0"))
     SummarizedExperiment::colData(sce) <- pd
 
     rownames(sce) <- paste0("G", seq(n_gene))

diff --git a/man/make_test_sce.Rd b/man/make_test_sce.Rd