test_that("visualize() is working", {
data(example)
expect_is(example, "numeric")
vals <- c(1,5,10,25)
cols <- colorize(vals)
expect_silent(visualize(cols))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.