1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
test_that("returns a ggplot object", {
x <- matrix(data = rnorm(100), nrow = 10)
p <- heatmap(x)
inherits(p, 'ggplot')
})
test_that("returns a ggplot object with labels", {
x <- matrix(data = rnorm(100), nrow = 10)
p <- heatmap(x, labels = TRUE)
inherits(p, 'ggplot')
})
test_that("returns a ggplot object with labels and title", {
x <- matrix(data = rnorm(100), nrow = 10)
p <- heatmap(x, title = 'test', labels = TRUE)
inherits(p, 'ggplot')
})
test_that("returns a ggplot object with title", {
x <- matrix(data = rnorm(100), nrow = 10)
p <- heatmap(x, title = 'test')
inherits(p, 'ggplot')
})
|
