Nothing
data <- tribble(
~id, ~name, ~x, ~y,
"foo", "Foo", 0.5, 0.7,
"bar", "Bar", 1.0, 0.1
)
test_that("verify_data works", {
out <- verify_data(data)
expect_named(out, c("id", "name", "x", "y"))
})
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.