update test-Metadata_Table.R

NIDAP-Community · Dec 10, 2022 · 4257cc6 · 4257cc6
1 parent cce3673
commit 4257cc6
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/R/Metadata_Table.R b/R/Metadata_Table.R
@@ -22,11 +22,11 @@
 #' 
 #' # Return dimensional reductions
 #' metadata <- MetadataTable(SO = seurat.object, return.cell.embeddings = TRUE)
-#' umap_coordinates <- metadata %>% dplyr::select(Barcode, seurat_clusters, contains("UMAP"))
+#' umap.coordinates <- metadata %>% dplyr::select(Barcode, seurat_clusters, contains("UMAP"))
 #' 
 #' ## Plot 
 #' library(ggplot2)
-#' ggplot(umap_coordinates, aes(x = UMAP_1, y = UMAP_2, colour = seurat_clusters)) + 
+#' ggplot(umap.coordinates, aes(x = UMAP_1, y = UMAP_2, colour = seurat_clusters)) + 
 #' geom_point(size = 0.1) + theme_bw()
 #' }
 #' 

diff --git a/tests/testthat/test-Metadata_Table.R b/tests/testthat/test-Metadata_Table.R
@@ -1,9 +1,11 @@
-# load data
-seurat.object <-readRDS(test_path("fixtures", "SO_moduleScore.rds"))
+
 
 # run tests
 test_that("reductions are returned", {
 
+  # load data
+  seurat.object <-readRDS(test_path("fixtures", "SO_moduleScore.rds"))
+
   metadata <-
     MetadataTable(SO = seurat.object,
                   return.cell.embeddings = TRUE)
@@ -16,6 +18,9 @@ test_that("reductions are returned", {
 
 test_that("function returns correct class", {
 
+  # load data
+  seurat.object <-readRDS(test_path("fixtures", "SO_moduleScore.rds"))
+
   metadata <-
     MetadataTable(SO = seurat.object,
                   return.cell.embeddings = TRUE)