1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
d <- ggplot(diamonds, aes(carat, price))
test_that("geom_hex", {
g <- d + geom_hex()
l <- expect_doppelganger_built(g, "hex-basic")
expect_true(length(l$data) > 1)
})
test_that("geom_hex with bins", {
g <- d + geom_hex(bins = 10)
l <- expect_doppelganger_built(g, "hex-bins")
expect_true(length(l$data) > 1)
})
test_that("geom_hex with binwidth", {
g <- d + geom_hex(binwidth = c(1, 1000))
l <- expect_doppelganger_built(g, "hex-binwidth")
expect_true(length(l$data) > 1)
})
|
