if (base::isFALSE(dep_check[["do_SCExpressionHeatmap"]])){
testthat::test_that("do_SCExpressionHeatmap: CRAN essentials", {
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1:5])
testthat::expect_type(p, "list")
})
testthat::test_that("do_SCExpressionHeatmap: PASS - default", {
testthat::skip_on_cran()
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1:5],
features.order = rownames(sample)[c(4, 2, 1, 3, 5)],
cluster = FALSE)
testthat::expect_type(p, "list")
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1:5])
testthat::expect_type(p, "list")
testthat::expect_warning({p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = c(rownames(sample)[1:5], "pepe"))})
testthat::expect_type(p, "list")
sample$test <- as.factor(sample$seurat_clusters)
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1:5],
group.by = "test")
testthat::expect_type(p, "list")
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1:5],
subsample = 100)
testthat::expect_type(p, "list")
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1])
testthat::expect_type(p, "list")
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1:5],
cluster = FALSE)
testthat::expect_type(p, "list")
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1:5],
metadata = c("orig.ident", "seurat_clusters"))
testthat::expect_type(p, "list")
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1:5],
metadata = c("orig.ident", "seurat_clusters"),
metadata.colors = list("orig.ident" = c("Cell" = "blue")))
testthat::expect_type(p, "list")
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1:5],
metadata = c("orig.ident", "seurat_clusters"),
min.cutoff = 1,
max.cutoff = 2)
testthat::expect_type(p, "list")
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1:5],
metadata = c("orig.ident", "seurat_clusters"),
min.cutoff = 1,
max.cutoff = 2,
proportional.size = FALSE)
testthat::expect_type(p, "list")
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1:5],
metadata = c("orig.ident", "seurat_clusters"),
min.cutoff = 1,
max.cutoff = 2,
proportional.size = FALSE,
enforce_symmetry = FALSE,
use_viridis = FALSE)
testthat::expect_type(p, "list")
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1:5],
metadata = c("orig.ident", "seurat_clusters"),
min.cutoff = 1,
max.cutoff = 2,
proportional.size = FALSE,
enforce_symmetry = FALSE,
use_viridis = TRUE)
testthat::expect_type(p, "list")
p <- SCpubr::do_SCExpressionHeatmap(sample = sample,
features = rownames(sample)[1:5],
metadata = c("orig.ident", "seurat_clusters"),
min.cutoff = 1,
max.cutoff = 2,
proportional.size = FALSE,
enforce_symmetry = TRUE,
use_viridis = FALSE)
testthat::expect_type(p, "list")
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.