tests/testthat/test-n-complete.R

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

test_that("n_complete handles 0 cases as I expect", {
  expect_equal(n_complete(0), 1)

  expect_equal(n_complete(numeric(0)), 0)

  expect_equal(n_complete(iris[0]), 0)
})

test_that("n_complete correctly counts the number of missings", {
  expect_equal(n_complete(c(0, NA, 120, NA)), 2)
  expect_equal(n_complete(c(NA, NA, NA, NA)), 0)
  expect_equal(n_complete(c(1, 2, 3, 4, 5)), 5)
})

test_that("n_complete works for dataframes", {
  expect_equal(n_complete(airquality), 874)
})