tests/testthat/test-nabular.R

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

test_that("nabular and bind_shadow return the same output", {
  expect_equal(nabular(airquality), bind_shadow(airquality))
})

test_that("nabular returns a data.frame or tbl",{
  expect_s3_class(nabular(airquality), "data.frame")
  expect_s3_class(nabular(airquality), "tbl_df")
})

test_that("nabular errors when given non dataframe or 0 entry",{
  expect_snapshot(
    error = TRUE,
    nabular(0)
    )
  expect_snapshot(
    error = TRUE,
    nabular("a")
    )
  expect_snapshot(
    error = TRUE,
    nabular(matrix(0))
    )
  expect_snapshot(
    error = TRUE,
    nabular(NULL)
    )
})

test_that("The number of rows are the same after using bind_shadow",{
  expect_equal(nrow(nabular(airquality)),nrow(airquality))
})

test_that("The number of columns are twice the number of nabular",{
  expect_equal(ncol(nabular(airquality)),ncol(airquality)*2)
})

test_that("nabular returns columns with additional suffix _NA",{
  expect_equal(
    names(nabular(airquality)),
    c(names(airquality), paste0(names(airquality),"_NA"))
    )
})

test_that("nabular with only_miss = TRUE returns smaller dataframe",{
  expect_gt(
    ncol(nabular(airquality)),
    ncol(nabular(airquality, only_miss = TRUE))
  )
})

test_that("nabular with only_miss = TRUE returns the right number of cols",{
  expect_equal(
    ncol(nabular(airquality, only_miss = TRUE)),
    ncol(airquality) + 2
    )
})

test_that(
  "nabular with only_miss = TRUE returns columns with extra suffix _NA",{
  expect_equal(
    names(nabular(airquality, only_miss = TRUE)),
    c(names(airquality), paste0(miss_var_which(airquality),"_NA"))
    )
})