Nothing
test_that("ggpackets can be indexed by numeric index to subset ggcalls", {
expect_equal({
ggpk <- ggpacket() + geom_line() + geom_point() + geom_bar()
ggpk[[2]]
}, {
ggpk <- ggpacket() + geom_point()
ggpk
})
expect_equal({
ggpk <- ggpacket() + geom_line() + geom_point() + geom_bar()
ggpk[2:3]
}, {
ggpk <- ggpacket() + geom_point() + geom_bar()
ggpk
})
})
test_that("ggpackets can be indexed by character id to subset ggcalls", {
expect_equal({
ggpk <- ggpacket() + geom_line() + geom_point() + geom_bar()
ggpk["point"]
}, {
ggpk <- ggpacket() + geom_point()
ggpk
})
expect_equal({
ggpk <- ggpacket() + geom_line() + geom_point() + geom_bar()
ggpk[c("line", "point")]
}, {
ggpk <- ggpacket() + geom_line() + geom_point()
ggpk
})
expect_equal({
ggpk <- ggpacket() %+%
geom_line() %+%
geom_point() %+%
geom_bar(.id = "line")
ggpk["line"]
}, {
ggpk <- ggpacket() %+% geom_line() %+% geom_bar(.id = "line")
ggpk
})
})
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.