Approved v2.0.0 update. - DEV - fixed 3

enblacar · Aug 10, 2023 · b2357dc · b2357dc
1 parent 81316eb
commit b2357dc
Showing 1 changed file with 20 additions and 20 deletions.
diff --git a/tests/testthat/setup.R b/tests/testthat/setup.R
@@ -75,26 +75,26 @@ if (base::isFALSE(dep_check[["do_GroupedGOTermPlot"]]) | base::isFALSE(dep_check
 # nolint end
 
 # Remove this for publication in CRAN.
-# if (base::isFALSE(dep_check[["do_LigandReceptorPlot"]])){
-#   liana_output <- readRDS(system.file("extdata/liana_output_example.rds", package = "SCpubr"))
-# }
-# 
-# if (base::isFALSE(dep_check[["do_DimPlot"]]) &
-#     base::isFALSE(dep_check[["do_CorrelationPlot"]]) &
-#     base::isFALSE(dep_check[["do_ChordDiagramPlot"]]) &
-#     isTRUE(requireNamespace(pkg, quietly = TRUE)) &
-#     base::isFALSE(dep_check[["save_Plot"]])){
-#   p <- SCpubr::do_DimPlot(sample)
-#   data <- data.frame("A" = stats::runif(n = 10),
-#                      "B" = stats::runif(n = 10),
-#                      "C" = stats::runif(n = 10),
-#                      "D" = stats::runif(n = 10))
-#   data <- as.matrix(data)
-#   p.pheatmap <- pheatmap::pheatmap(data, cluster_rows = FALSE, cluster_cols = FALSE)
-#   p.heatmap <- ComplexHeatmap::Heatmap(data, cluster_rows = FALSE, cluster_columns = FALSE)
-#   p.chord <- SCpubr::do_ChordDiagramPlot(sample = sample, from = "seurat_clusters", to = "orig.ident")
-#   figure_path <- getwd()
-# }
+if (base::isFALSE(dep_check[["do_LigandReceptorPlot"]])){
+  liana_output <- readRDS(system.file("extdata/liana_output_example.rds", package = "SCpubr"))
+}
+
+if (base::isFALSE(dep_check[["do_DimPlot"]]) &
+    base::isFALSE(dep_check[["do_CorrelationPlot"]]) &
+    base::isFALSE(dep_check[["do_ChordDiagramPlot"]]) &
+    isTRUE(requireNamespace(pkg, quietly = TRUE)) &
+    base::isFALSE(dep_check[["save_Plot"]])){
+  p <- SCpubr::do_DimPlot(sample)
+  data <- data.frame("A" = stats::runif(n = 10),
+                     "B" = stats::runif(n = 10),
+                     "C" = stats::runif(n = 10),
+                     "D" = stats::runif(n = 10))
+  data <- as.matrix(data)
+  p.pheatmap <- pheatmap::pheatmap(data, cluster_rows = FALSE, cluster_cols = FALSE)
+  p.heatmap <- ComplexHeatmap::Heatmap(data, cluster_rows = FALSE, cluster_columns = FALSE)
+  p.chord <- SCpubr::do_ChordDiagramPlot(sample = sample, from = "seurat_clusters", to = "orig.ident")
+  figure_path <- getwd()
+}
 
 
 #monocle_sample <- sample