Nothing
context("check-lgl")
test_that("check_lgl errors", {
y <- TRUE
expect_identical(check_lgl(y), y)
y <- 2
expect_error(check_lgl(y), "y must be class logical")
y <- c(TRUE, TRUE)
expect_error(check_lgl(y), "y must have 1 element")
y <- NA
expect_error(check_lgl(y), "y must not include missing values")
expect_identical(check_lgl(FALSE), FALSE)
})
test_that("check_flag errors", {
y <- TRUE
expect_identical(check_flag(y), y)
y <- 2
expect_error(check_flag(y), "y must be class logical")
y <- c(TRUE, TRUE)
expect_error(check_flag(y), "y must have 1 element")
y <- NA
expect_error(check_flag(y), "y must not include missing values")
expect_identical(check_flag(FALSE), FALSE)
})
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.