Nothing
test_that("`plots()` works", {
skip_if_not_installed("patchwork")
p1 <- ggplot(iris, aes(x = Petal.Length, y = Sepal.Width)) +
geom_point()
p2 <- ggplot(iris, aes(x = Petal.Length)) +
geom_density()
expect_s3_class(plots(p1, p2), "ggplot")
})
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.