context('Iris')
test_that('Packaged dataset works', {
iris_data <- iris_unbound[1:5]
lapply(names(iris_data), function(name) comment(iris_data[[name]]) <<- NULL)
expect_equal(iris_data, iris)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.