Nothing
context("missing")
test_that("missing", {
data <- data.frame(x = 1, y = 2, z = 0)
expect_identical(check_missing_colnames(data, "a"), data)
expect_error(check_missing_colnames(data, c("y", "x", "a")), "data must not have columns 'x' and '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.