Nothing
test_that("<ggpacket> + <ggplot layer constructor> adds as ggcall", {
expect_equal({
ggpk <- ggpacket() + geom_line()
ggpk@ggcalls[[1]][[1]][[1]]
}, {
rlang::quo(geom_line)
})
expect_equal({
ggpk <- ggpacket() + geom_line(size = 3L)
as.list(ggpk@ggcalls[[1]][[1]][2])
}, {
list(size = rlang::quo(3L))
})
expect_equal({
ggpk <- ggpacket() + geom_line(size = 3L) + geom_point(size = 4L)
as.list(ggpk@ggcalls[[2]][[1]][2])
}, {
list(size = rlang::quo(4L))
})
})
test_that("<ggpacket> + <ggpacket> adds ggpacket as nested ggcall", {
expect_equal({
ggpk <- (ggpacket() + geom_line()) + (ggpacket() + geom_line())
ggpk@ggcalls[[1]][[1]]
}, {
ggpk <- (ggpacket() + geom_line())
ggpk@ggcalls[[1]][[1]]
})
expect_equal({
ggpk <- (ggpacket() + geom_line()) + (ggpacket() + geom_line())
ggpk@ggcalls[[2]][[1]]
}, {
ggpk <- (ggpacket() + (ggpacket() + geom_line()))
ggpk@ggcalls[[1]][[1]]
})
})
test_that("<ggpacket> %+% <call> captures expressions, even if error prone", {
expect_silent({
ggpacket() %+% geom_line(fake_param = 1 + "a")
})
})
test_that("%+% and + are equal aside from avoiding initial evaluation", {
expect_equal({
ggpacket() %+% geom_line(color = "red")
}, {
ggpacket() + geom_line(color = "red")
})
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.