tests/testthat/test_EncodeYN.R

test_that("YN", {
  a <- c("Yes", "No", "Yes", "Not applicable", NA)
  expect_identical(encode_YN(a), c(TRUE, FALSE, TRUE, NA, NA))
})
HughParsonage/dhhs documentation built on Dec. 17, 2021, 11:22 p.m.