Nothing
test_that("tests for drop_linelist", {
x <- make_linelist(cars, age = "speed")
expect_identical(cars, drop_linelist(x, TRUE))
y <- drop_linelist(x, FALSE)
expect_identical(tags(x, TRUE), attr(y, "tags"))
})
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.