tests/testthat/test-n-miss.R

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

test_that("n_miss handles 0 cases as I expect",{

  expect_equal(n_miss(0), 0)
  expect_equal(n_miss(numeric(0)),0)
  expect_equal(n_miss(mtcars[0]),0)

})

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

test_that("n_miss works for dataframes",{
  expect_equal(n_miss(airquality), 44)
})