requiet("patchwork")
test_that("`plots()` works", {
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")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.