tests/testthat/test-chk.R

test_that("chk_blank works", {
  expect_equal(chk_blank(c(1, NA)), c(FALSE, TRUE))
  expect_equal(chk_blank(c("a", "", NA)), c(FALSE, TRUE, TRUE))
  expect_equal(chk_blank(as.factor(c("a", "", NA))), c(FALSE, TRUE, TRUE))
})

Try the testdat package in your browser

Any scripts or data that you put into this service are public.

testdat documentation built on Sept. 4, 2023, 1:06 a.m.