context("Output")
test_that("open plot windows maintained", {
n <- length(dev.list())
evaluate(file("plot.r"))
expect_that(length(dev.list()), equals(n))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.