tests/testthat/test_recode2NA.R

In eatGADS: Data Management of Large Hierarchical Data

# dfSAV <- import_spss(file = "tests/testthat/helper_spss_missings.sav")
dfSAV <- import_spss(file = "helper_spss_missings.sav")

mc <- as.factor(c("Ger", "other", NA, "Aus"))
mt <- data.frame(ID = 1:4, mc = mc, text = c(NA, "", "Aus", "Aus2"), stringsAsFactors = FALSE)
mt_gads <- import_DF(mt)

txt <- data.frame(ID = 1:4, var1 = c("", "Eng", "Aus", "Aus2"),
                  var2 = c("", "French", "Ger", "Ita"),
                  stringsAsFactors = FALSE)
txt_gads <- import_DF(txt)

test_that("Recode2NA", {
  mess <- capture_messages(out <- recode2NA(txt_gads))
  expect_equal(out$dat$var1, c(NA, "Eng", "Aus", "Aus2"))
  expect_equal(out$dat$var2, c(NA, "French", "Ger", "Ita"))
  expect_equal(out$labels, txt_gads$labels)
  expect_equal(mess[[1]], "Recodes in variable ID: 0\n")
  expect_equal(mess[[2]], "Recodes in variable var1: 1\n")
})

test_that("Recode2NA mixed data and missings in string", {
  mess2 <- capture_messages(out <- recode2NA(mt_gads))
  expect_equal(out$dat$text, c(NA, NA, "Aus", "Aus2"))
  expect_equal(mess2[[3]], "Recodes in variable text: 1\n")

  mess3 <- capture_messages(out2 <- recode2NA(mt_gads, value = c("", "Aus")))
  expect_equal(out2$dat$text, c(NA, NA, NA, "Aus2"))
  expect_equal(mess3[[3]], "Recodes in variable text: 2\n")
})


test_that("Errors for Recode2NA", {
  expect_error(recode2NA(txt_gads, value = c()),
               "'value' needs to be a vector of at least length 1.")
  expect_error(recode2NA(mt_gads, recodeVar = 1, value = c("1")),
               "'recodeVars' needs to be character vector of at least length 1.")
  expect_error(recode2NA(mt_gads, recodeVar = "test1", value = 1),
               "The following 'recodeVars' are not variables in the GADSdat: test1")
})


test_that("Recode2NA numerics", {
  expect_warning(out <- recode2NA(dfSAV, recodeVars =  "VAR1", value = 1),
                 "Some 'value' is labeled in the following variables in 'recodeVars': VAR1")
  expect_equal(out$dat$VAR1, c(NA, -99, -96, 2))

  expect_warning(out <- recode2NA(dfSAV, recodeVars =  "VAR1", value = 1:2),
                 "Some 'value' is labeled in the following variables in 'recodeVars': VAR1")
  expect_equal(out$dat$VAR1, c(NA, -99, -96, NA))
})