tests/testthat/test-count_na.R

In ddsjoberg/bstfun: Functions for the MSK Biostatistics Department

context("count_na")

test_that("No Errors/Warning with standard use", {
  expect_error(
    trial %>% count_na(),
    NA
  )
  expect_error(
    trial %>% count_na(include = c("marker", "stage")),
    NA
  )

  expect_warning(
    trial %>% count_na(),
    NA
  )
  expect_warning(
    trial %>% count_na(include = c("marker", "stage")),
    NA
  )
})