Nothing
context("colnames")
test_that("colnames", {
data <- data.frame(x = 1, y = 2, z = 0)
expect_identical(check_colnames(data, c("y", "x")), data)
expect_error(check_colnames(data, c("y", "x"), exclusive = TRUE), "data column names must include and only include 'y' and 'x'")
expect_error(check_colnames(data, c("y", "x"), order = TRUE), "data column names must include 'y' and 'x' in that order")
expect_error(check_colnames(data, c("a")), "data column names must include 'a'")
expect_identical(check_colnames(data), data)
expect_error(check_colnames(data, exclusive = TRUE), "data must not have any columns")
data <- data.frame()
expect_identical(check_colnames(data), data)
expect_identical(check_colnames(data, exclusive = TRUE), data)
})
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.