tests/testthat/test-keep_numeric.R

In antaldaniel/surveyreader: Data cleaning and integration for survey files

library (surveyreader)
library(testthat)
context("Removing text from mainly numerical variables")

test_that("correct conversion takes place", {
  expect_equal(keep_numeric (column = c("He is 183.5 cm tall", "She is 178,5 cm tall"),
                             na_label = "Missing",
                             comma = TRUE),
               c(183.5,178.5)
  )
  expect_equal(keep_numeric("He is 383.5 cm tall", max_value = 250),
               NA
  )
  expect_equal(keep_numeric("She is 38 cm tall", min_value = 100),
               NA
  )
  expect_equal(keep_numeric(column = c("15 years", "16 years", "DK"),
                            na_labels = "default"),
               c(15,16,NA)
  )
})