tests/testthat/test-draw_heatmap.R

context("Draw heatmap")

test_that("heatmap is drawn", {
  # check tests/figs directory to validate output
  m <- outer(-3:3, -3:3, "+")
  plt <- draw_heatmap(m)
  ggsave("../figs/heatmap.pdf", plot = plt)
})
klovens/pineplot documentation built on Nov. 4, 2019, 3:53 p.m.