tests/testthat/test-do_TFActivityHeatmap.R

In SCpubr: Generate Publication Ready Visualizations of Single Cell Transcriptomics Data

if(base::isFALSE(dep_check[["do_TFActivityHeatmap"]])){

  testthat::test_that("do_TFActivityHeatmap: PASS - minimal input", {
    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                     activities = dorothea_activities)
    testthat::expect_true(ggplot2::is_ggplot(p))

  })

  testthat::test_that("do_TFActivityHeatmap: PASS - minimal input", {
    testthat::skip_on_cran()


    sample$annotation <- sample(c("A", "B"), ncol(sample), replace = TRUE)
    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                     activities = dorothea_activities)
    testthat::expect_true(ggplot2::is_ggplot(p))
    
    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                        activities = dorothea_activities,
                                        enforce_symmetry = FALSE)
    testthat::expect_true(ggplot2::is_ggplot(p))
    
    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                        activities = dorothea_activities,
                                        enforce_symmetry = FALSE,
                                        values.show = TRUE,
                                        values.threshold = 0.5)
    testthat::expect_true(ggplot2::is_ggplot(p))
    
    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                     activities = dorothea_activities,
                                     group.by = "orig.ident")
    testthat::expect_true(ggplot2::is_ggplot(p))
    
    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                     activities = dorothea_activities,
                                     group.by = c("orig.ident", "seurat_clusters", "annotation"))
    testthat::expect_true(ggplot2::is_ggplot(p))
    
    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                     activities = dorothea_activities,
                                     tfs.use = c("PDX1", "E2F1"))
    testthat::expect_true(ggplot2::is_ggplot(p))
    
    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                          activities = dorothea_activities,
                                          split.by = "annotation")
    testthat::expect_true(ggplot2::is_ggplot(p))
    
    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                     activities = dorothea_activities,
                                     flip = TRUE)
    testthat::expect_true(ggplot2::is_ggplot(p))
    
    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                     activities = dorothea_activities,
                                     flip = FALSE)
    testthat::expect_true(ggplot2::is_ggplot(p))

    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                     activities = dorothea_activities,
                                     flip = TRUE)
    testthat::expect_true(ggplot2::is_ggplot(p))

    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                     activities = dorothea_activities,
                                     legend.position = "right")
    testthat::expect_true(ggplot2::is_ggplot(p))

    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                     activities = dorothea_activities,
                                     legend.position = "right")
    testthat::expect_true(ggplot2::is_ggplot(p))
    
    out <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                     activities = dorothea_activities,
                                     legend.position = "right",
                                     return_object = TRUE)
    testthat::expect_type(out, "list")
  })

  testthat::test_that("do_TFActivityHeatmap: PASS - minimal input", {
    testthat::skip_on_cran()



    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                     activities = dorothea_activities,
                                     flip = TRUE)
    testthat::expect_true(ggplot2::is_ggplot(p))
  })

  

  testthat::test_that("do_TFActivityHeatmap: PASS - all group.by", {
    testthat::skip_on_cran()



    p <- SCpubr::do_TFActivityHeatmap(sample = sample,
                                     activities = dorothea_activities,
                                     group.by = "orig.ident")
    testthat::expect_true(ggplot2::is_ggplot(p))
  })




  testthat::test_that("do_TFActivityHeatmap: FAIL", {
    testthat::skip_on_cran()

    testthat::expect_error({SCpubr::do_TFActivityHeatmap(sample = sample,
                                                           activities = dorothea_activities,
                                                           min.cutoff = -10)})

    testthat::expect_error({SCpubr::do_TFActivityHeatmap(sample = sample,
                                                           activities = dorothea_activities,
                                                           max.cutoff = 200)})

    testthat::expect_error({SCpubr::do_TFActivityHeatmap(sample = sample,
                                                           activities = dorothea_activities,
                                                           max.cutoff = 1,
                                                           min.cutoff = 2)})
    sample$annotation <- sample(c("A", "B"), ncol(sample), replace = TRUE)
    testthat::expect_error({SCpubr::do_TFActivityHeatmap(sample = sample,
                                                      activities = dorothea_activities,
                                                      group.by = c("seurat_clusters", "orig.ident"),
                                                      split.by = "annotation")})

  })
}