tests/testthat/test_plotHeatmap.R

#test_that('testing pheatmap graphics', {
#  file <- system.file("extdata", "pasilla_gene_counts.csv", package = "sahu")
#  out <- plotHeatmap(file)
#  vdiffr::expect_doppelganger("static heatmap", out)
#})
sk-sahu/sahu documentation built on Nov. 20, 2019, 6:28 p.m.