tests/testthat/test-shadow-identifiers.R

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

df <- tibble::tribble(
  ~wind,
  ~temp,
  -99,
  45,
  68,
  NA,
  72,
  25
)

dfs <- nabular(df)

dfs_are <- are_shade(dfs)

test_that("are_shade returns the correct values", {
  expect_false(dfs_are[["wind"]])
  expect_false(dfs_are[["temp"]])
  expect_true(dfs_are[["wind_NA"]])
  expect_true(dfs_are[["temp_NA"]])
})

test_that("any_shade returns the correct values", {
  expect_false(any_shade(df))
  expect_true(any_shade(dfs))
})