1 2 3 4 5
test_that("returns a ggplot object", { x <- matrix(data = rnorm(100), nrow = 10) p <- heatmap(x) inherits(p, 'ggplot') })