tests/testthat/test_value_check.R

testthat::context("test value check functions")

testthat::test_that("is_empty", {
  vec <- c("not empty", "",  "  ", NA)
  ret <- is_empty(vec)
  expect_equal(ret, c(FALSE, TRUE, TRUE, TRUE))
})
exploratory-io/exploratory_func documentation built on April 23, 2024, 9:15 p.m.