tests/testthat/test-miss-scan-count.R

In njtierney/naniar: Data Structures, Summaries, and Visualisations for Missing Data

dat_ms <- tibble::tribble(~x,  ~y,    ~z,
                         1,   "A",   -100,
                         3,   "N/A", -99,
                         NA,  NA,    -98,
                         -99, "E",   -101,
                         -98, "F",   -1)
test_that("miss_scan_count returns a data.frame", {
  expect_s3_class(miss_scan_count(dat_ms, -99), "data.frame")
})

test_that("miss_scan_count returns an error when no search is provided", {
  expect_snapshot(
    error = TRUE,
    miss_scan_count(dat_ms)
  )
})

test_that("miss_scan_count returns an error when no data is provided", {
  expect_snapshot(
    error = TRUE,
    miss_scan_count(search = -99)
  )
})

test_that("miss_scan_count returns a data.frame of the right size", {
  expect_equal(
    dim(miss_scan_count(dat_ms, -99)),
    c(3, 2)
  )
})

correct_answer_1 <- tibble::tribble(
  ~Variable, ~n,
  "x", 1L,
  "y", 0L,
  "z", 1L
)

correct_answer_2 <- tibble::tribble(
  ~Variable, ~n,
  "x", 2L,
  "y", 0L,
  "z", 2L
)

correct_answer_3 <- tibble::tribble(
  ~Variable, ~n,
  "x", 2L,
  "y", 1L,
  "z", 2L
)

correct_answer_4 <- tibble::tribble(
  ~Variable, ~n,
  "x", 2L,
  "y", 1L,
  "z", 2L
)

test_that("miss_scan_count returns the right answer", {
  expect_equal(miss_scan_count(dat_ms,-99),
               correct_answer_1)
  expect_equal(miss_scan_count(dat_ms,c(-99,-98)),
               correct_answer_2)
})