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
|
context("Labels")
test_that("setting guide labels works", {
expect_identical(xlab("my label")$x, "my label")
expect_identical(labs(x = "my label")$x, "my label")
expect_identical(ylab("my label")$y, "my label")
expect_identical(labs(y = "my label")$y, "my label")
# Plot titles
expect_identical(labs(title = "my title")$title, "my title")
expect_identical(labs(title = "my title",
subtitle = "my subtitle")$subtitle, "my subtitle")
# whole plot annotations
expect_identical(labs(caption = "my notice")$caption, "my notice")
expect_identical(labs(title = "my title",
caption = "my notice")$caption, "my notice")
expect_identical(labs(tag = "A)")$tag, "A)")
expect_identical(labs(title = "my title",
tag = "A)")$tag, "A)")
# Colour
expect_identical(labs(colour = "my label")$colour, "my label")
# American spelling
expect_identical(labs(color = "my label")$colour, "my label")
# No extra elements exists
expect_equivalent(labs(title = "my title"), list(title = "my title")) # formal argument
expect_equivalent(labs(colour = "my label"), list(colour = "my label")) # dot
expect_equivalent(labs(foo = "bar"), list(foo = "bar")) # non-existent param
# labs() has list-splicing semantics
params <- list(title = "my title", tag = "A)")
expect_identical(labs(!!!params)$tag, "A)")
# NULL is preserved
expect_equivalent(labs(title = NULL), list(title = NULL))
# ggtitle works in the same way as labs()
expect_identical(ggtitle("my title")$title, "my title")
expect_identical(
ggtitle("my title", subtitle = "my subtitle")$subtitle,
"my subtitle"
)
expect_equivalent(
ggtitle("my title", subtitle = NULL),
list(title = "my title", subtitle = NULL)
)
})
# Visual tests ------------------------------------------------------------
test_that("tags are drawn correctly", {
dat <- data_frame(x = 1:10, y = 10:1)
p <- ggplot(dat, aes(x = x, y = y)) + geom_point() + labs(tag = "Fig. A)")
expect_doppelganger("defaults", p)
expect_doppelganger("Other position", p + theme(plot.tag.position = 'bottom'))
expect_doppelganger("Manual", p + theme(plot.tag.position = c(0.05, 0.05)))
})
|
