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
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
penguin.base <- ggplot(palmerpenguins::penguins) +
geom_point(aes(bill_length_mm, flipper_length_mm)) +
theme_grey()
test_that("background translated correctly",{
ggpenguin <- penguin.base +
theme(panel.background = element_rect(fill = "blue"),
plot.background = element_rect(fill = "green"))
info <- expect_doppelganger_built(ggpenguin, "theme-background")
L <- info$layout
expect_true(L$plot_bgcolor == toRGB("blue"))
expect_true(L$paper_bgcolor == toRGB("green"))
})
test_that("grid/ticks translated correctly",{
ggpenguin <- penguin.base +
theme(axis.ticks = element_line(colour = "red"),
panel.grid.major = element_line(colour = "violet"))
info <- expect_doppelganger_built(ggpenguin, "theme-ticks-and-grids")
for (xy in c("x", "y")) {
ax.list <- info$layout[[paste0(xy, "axis")]]
expect_true(ax.list$tickcolor == toRGB("red"))
expect_true(ax.list$gridcolor == toRGB("violet"))
}
})
test_that("show ticks as 'outside' by default", {
ggpenguin <- penguin.base
info <- expect_doppelganger_built(ggpenguin, "theme-ticks-default")
for (xy in c("x", "y")) {
ax.list <- info$layout[[paste0(xy, "axis")]]
expect_identical(ax.list$ticks, "outside")
}
})
test_that("do not show zeroline by default", {
ggpenguin <- penguin.base
info <- expect_doppelganger_built(ggpenguin, "theme-zeroline-default")
for (xy in c("x", "y")) {
ax.list <- info$layout[[paste0(xy, "axis")]]
expect_identical(ax.list$zeroline, FALSE)
}
})
countrypop <- data.frame(
country = c("Paraguay", "Peru", "Philippines"),
population = c(7, 31, 101),
edu = c(4.2, 1.75, 1.33),
illn = c(0.38, 1.67, 0.43)
)
gg <- ggplot(countrypop) +
geom_point(aes(edu, illn, colour = country, size = population))
test_that("marker default shape is a circle", {
info <- expect_doppelganger_built(gg, "theme-marker-default")
for (i in c(1:3)) {
expect_equivalent(info$data[[i]]$marker$symbol, "circle")
expect_true(info$data[[i]]$showlegend)
}
})
test_that("plot panel border is translated correctly", {
ggpenguin <- penguin.base + theme_grey() # has no panel.border
info <- expect_doppelganger_built(ggpenguin, "theme-panel-border-1")
red <- ggplot(palmerpenguins::penguins) +
theme_grey() +
geom_point(aes(bill_length_mm, bill_depth_mm)) +
theme(panel.border = element_rect(colour = "red", fill = NA))
info <- expect_doppelganger_built(red, "theme-panel-border-2")
expect_true(info$layout$shapes[[1]]$line$color == toRGB("red"))
})
|
