tests/testthat/test-draw_heatmap.R

In insightsengineering/hermes: Preprocessing, analyzing, and reporting of RNA-seq data

test_that("draw_heatmap works as expected", {
  set.seed(123)
  result <- draw_heatmap(
    hermes_data[1:20],
    assay_name = "counts",
    color_extremes = c(0.01, 0.99),
    col_data_annotation = "SEX"
  )

  vdiffr::expect_doppelganger("draw_heatmap with one col_data_annotation", result)
})