Nothing
context("Checklists")
test_that("is_check_formula() yields FALSE for invalid check formulas", {
for (chk in invalid_checks) {
expect_false(is_checklist(list(chk)))
}
})
test_that("is_check_formula() raises error for non-evaluable check formulas", {
for (chk in noneval_checks) {
expect_error(is_checklist(list(chk)))
}
})
test_that("is_check_formula() yields TRUE for valid check formulas", {
good_checks <- list(
~ is.numeric,
"Not numeric" ~ is.numeric,
~ {. > 0},
"Not positive" ~ {. > 0},
~ function(x) {abs(x) > 0},
"Not nonzero" ~ function(x) {abs(x) > 0},
list(~x) ~ is.numeric,
list(~x, ~y) ~ is.numeric,
list(~x, "`y` not numeric" ~ y) ~ is.numeric,
list("`x` not numeric" ~ x, "`y` not numeric" ~ y) ~ is.numeric,
list(~list(x, y)) ~ lift(function(x, y) {x - y > 0})
)
for (chk in good_checks) {
expect_true(is_check_formula(chk))
}
})
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.