tests/testthat/test-harmonize_na_values.R

In retroharmonize: Ex Post Survey Data Harmonization

test_locally <- function() {
  examples_dir <- system.file("examples", package = "retroharmonize")

  test_read <- read_rds(
    file.path(examples_dir, "ZA7576.rds"),
    id = "ZA7576",
    doi = "test_doi"
  )

  tested <- harmonize_na_values(df = test_read)

  inherits(tested, "survey")
}


test_that("example works for harmonize_na_values", {
  skip_on_cran()
  expect_true(test_locally())
})