tests/testthat/test-prop-complete.R

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

df <- data.frame(x = c(NA, 1:4), y = c(NA, NA, 1:3))


test_that("prop_complete handles 0 cases as I expect", {
  expect_equal(prop_complete(0), 1)
  expect_equal(prop_complete(TRUE), 1)
  expect_equal(prop_complete("TRUE"), 1)
  expect_equal(prop_complete(numeric(0)), NaN)

  expect_equal(prop_complete(iris[0]), NaN)
})

test_that("prop_complete correctly counts the proportion of missings", {
  expect_equal(prop_complete(c(0, NA, 120, NA)), 0.5)
  expect_equal(prop_complete(c(NA, NA, 120, NA)), 0.25)
  expect_equal(prop_complete(c(NA, NA, NA, NA)), 0)
  expect_equal(prop_complete(c(1, 2, 3, 4, 5)), 1)
})

df <- data.frame(x = c(NA, 1:4), y = c(NA, NA, 1:3))

test_that("prop_complete works for dataframes", {
  expect_true(dplyr::near(round(prop_complete(df), 5), 0.7))
})