Nothing
context("Main function")
test_that("dspl", {
# Loading datasets
path <- base::system.file("dspl-tutorial", package="googlePublicData")
suppressMessages(dat <- dspl(path))
expect_output(print(dat), "<dspl")
expect_output(print(summary(dat)))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.