Update test_cpdbplot_heatmap.R

zktuong · Feb 17, 2024 · be92f58 · be92f58
1 parent fdeb74d
commit be92f58
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/testthat/test_cpdbplot_heatmap.R b/tests/testthat/test_cpdbplot_heatmap.R
@@ -43,3 +43,12 @@ test_that("plot_cpdb_heatmap works2", {
     ), degs_analysis = FALSE)
     expect_that(class(p), equals("pheatmap"))
 })
+
+
+test_that("plot_cpdb_heatmap works2", {
+    p <- plot_cpdb_heatmap(relevant_interactions_v5, cell_types = c(
+        "iEVT", "PV MYH11",
+        "PV STEAP4", "EVT_1"
+    ), degs_analysis = TRUE, symmetrical = FALSE)
+    expect_that(class(p), equals("pheatmap"))
+})