tests/testthat/test-n-complete.R

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)
})

Try the naniar package in your browser

Any scripts or data that you put into this service are public.

naniar documentation built on Feb. 16, 2023, 5:11 p.m.