test_that("singleton with marker plots without error", {
s = singleton(1)
pdf(NULL) # avoid Rplots.pdf being created
expect_silent(plot(s, marker = marker(s)))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.