tests/testthat/test-tidyheatmap.R

In jbengler/tidyheatmaps: Heatmaps from Tidy Data

test_that("data set 'data_exprs' is available", {
  expect_equal(dim(data_exprs), c(800, 9))
})

test_that("missing required arguments throws error", {
  expect_error(tidyheatmap(), "'df' is missing")
  expect_error(tidyheatmap(data_exprs), "'rows' is missing")
  expect_error(tidyheatmap(data_exprs,
                            rows = external_gene_name), "'columns' is missing")
  expect_error(tidyheatmap(data_exprs,
                            rows = external_gene_name,
                            columns = sample), "'values' is missing")
})

test_that("gtable output is produced", {
  expect_equal(tidyheatmap(data_exprs,
                            rows = external_gene_name,
                            columns = sample,
                            values = expression)$gtable %>% class %>% .[1], "gtable")
  expect_equal(tidyheatmap(data_exprs,
                            rows = external_gene_name,
                            columns = sample,
                            values = expression,
                            scale = "row",
                            color_legend_n = 5,
                            color_legend_min = -1,
                            color_legend_max = 1,
                            colors = c("#145afc","#ffffff","#ee4445"))$gtable %>% class %>% .[1], "gtable")
  expect_equal(tidyheatmap(data_exprs,
                            rows = external_gene_name,
                            columns = sample,
                            values = expression,
                            annotation_col = c(sample_type, condition, group),
                            annotation_row = c(is_immune_gene, direction),
                            gaps_row = direction,
                            gaps_col = group)$gtable %>% class %>% .[1], "gtable")
})