context("multiplot")
test_that("single multiplot", {
expect_silent(multiplot(ggplot2::qplot(seq(10), seq(11, 20))))
expect_silent(multiplot(
ggplot2::qplot(seq(10), seq(11, 20)),
ggplot2::qplot(1:10, 20:11)
))
expect_silent(multiplot(
ggplot2::qplot(seq(10), seq(11, 20)),
ggplot2::qplot(1:10, 20:11),
ncol = 2
))
expect_silent(multiplot(
plotlist = list(
ggplot2::qplot(seq(10), seq(11, 20)),
ggplot2::qplot(seq(10), seq(20, 11))),
ncol = 2
))
expect_silent(multiplot(
plotlist = list(
ggplot2::qplot(seq(10), seq(11, 20)),
ggplot2::qplot(seq(10), seq(20, 11))),
ncol = 2,
layout = as.matrix(c(2,1))
))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.