tests/testthat/test-heatmapEnrichment.R

In ncborcherding/escape: Easy single cell analysis platform for enrichment

# test script for heatmapEnrichment.R - testcases are NOT comprehensive!

test_that("heatmapEnrichment works", {
  
  seuratObj <- getdata("runEscape", "pbmc_small_ssGSEA")
  
  expect_doppelganger(
    "heatmapEnrichment_default_plot",
    heatmapEnrichment(
      seuratObj, 
      assay = "escape")
  )
  
  expect_doppelganger(
    "heatmapEnrichment_scale_plot",
    heatmapEnrichment(
      seuratObj, 
      assay = "escape",
      scale = TRUE
    )
  )
  
  
  expect_doppelganger(
    "heatmapEnrichment_facet_plot",
    heatmapEnrichment(
      seuratObj, 
      assay = "escape",
      facet.by = "groups"
    )
  )

  expect_doppelganger(
    "heatmapEnrichment_clusterRows_plot",
    heatmapEnrichment(
      seuratObj, 
      cluster.rows = TRUE,
      assay = "escape",
    )
  )
  
  expect_doppelganger(
    "heatmapEnrichment_clusterColumns_plot",
    heatmapEnrichment(
      seuratObj, 
      cluster.columns = TRUE,
      assay = "escape",
    )
  )
  
})