Nothing
# minimal_table ----
## Test 1: minimal_table: builds minimal data frame with data ----
test_that("support-for-tests Test 1: builds minimal data frame with data", {
minimal_table(31) %>%
NROW() %>%
expect_equal(31)
(colnames(minimal_table(31)) %in% c("x", "y")) %>%
all() %>%
expect_true()
})
# minimal_metadata ----
## Test 2: minimal_metadata: builds minimal metadata data frame ----
test_that("support-for-tests Test 2: builds minimal metadata data frame", {
sample_metadata <- minimal_metadata(
dataset = TRUE,
length = TRUE,
label = TRUE,
type = TRUE,
format = TRUE,
order = TRUE
)
(sample_metadata$variable %in% c("x", "y", "z", "a", "b", "c", "d")) %>%
all() %>%
expect_true()
})
## Test 3: minimal_metadata: columns in minimal_table are all in metadata ----
test_that("support-for-tests Test 3: columns in minimal_table are all in metadata", {
sample_data <- minimal_table(31, cols = c("x", "y", "z", "a", "b", "c", "d"))
sample_metadata <- minimal_metadata(dataset = TRUE)
(colnames(sample_data) %in% sample_metadata$variable) %>%
all() %>%
expect_true()
})
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.