1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
# Test the complete path from plot specification to rendered data
context("Plot building")
df <- data.frame(x = 1:3, y = 3:1, z = letters[1:3])
test_that("there is one data frame for each layer", {
l1 <- ggplot(df, aes(x, y)) + geom_point()
l2 <- ggplot(df, aes(x, y)) + geom_point() + geom_line()
l3 <- ggplot(df, aes(x, y)) + geom_point() + geom_line() + geom_point()
expect_that(length(pdata(l1)), equals(1))
expect_that(length(pdata(l2)), equals(2))
expect_that(length(pdata(l3)), equals(3))
})
test_that("position aesthetics coerced to correct type", {
l1 <- ggplot(df, aes(x, y)) + geom_point()
d1 <- pdata(l1)[[1]]
expect_that(d1$x, is_a("numeric"))
expect_that(d1$y, is_a("numeric"))
l2 <- ggplot(df, aes(x, z)) + geom_point() + scale_x_discrete()
d2 <- pdata(l2)[[1]]
expect_that(d2$x, is_a("integer"))
expect_that(d2$y, is_a("integer"))
})
test_that("non-position aesthetics are mapped", {
l1 <- ggplot(df, aes(x, y, fill = z, colour = z, shape = z, size = z)) +
geom_point()
d1 <- pdata(l1)[[1]]
expect_that(sort(names(d1)), equals(sort(c("x", "y", "fill", "group",
"colour", "shape", "size", "PANEL"))))
l2 <- l1 + scale_colour_manual(values = c("blue", "red", "yellow"))
d2 <- pdata(l2)[[1]]
expect_that(d2$colour, equals(c("blue", "red", "yellow")))
})
|
