tests/testthat/test-make_labelled.R

In DDIwR: DDI with R

dataDscr <- list(
  ID = list(
      label = "Questionnaire ID",
      type = "num",
      measurement = "interval"
  ),
  V1 = list(
      label = "Label for the first variable",
      labels = c(
          "No"             =  0,
          "Yes"            =  1,
          "Not applicable" = -97,
          "Not answered"   = -99),
      na_values = c(-99, -97),
      type = "cat",
      measurement = "nominal"
  ),
  V2 = list(
      label = "Label for the second variable",
      labels = c(
          "Very little"    =  1,
          "Little"         =  2,
          "So, so"         =  3,
          "Much"           =  4,
          "Very much"      =  5,
          "Don't know"     = -98),
      na_values = c(-98),
      type = "cat",
      measurement = "ordinal"
  ),
  V3 = list(
      label = "Label for the third variable",
      labels = c(
          "First answer"   = "A",
          "Second answer"  = "B",
          "Don't know"     = -98),
      na_values = c(-98),
      type = "cat",
      measurement = "nominal"
  ),
  V4 = list(
      label = "Number of children",
      labels = c(
          "Don't know"     = -98,
          "Not answered"   = -99),
      na_values = c(-99, -98),
      type = "numcat",
      measurement = "ratio"
  ),
  V5 = list(
    type = "char"
  )
)

testdf <- data.frame(
  ID = 1:100,
  V1 = sample(c(0, 1, -97, -99), 100, replace = TRUE),
  V2 = sample(c(1:5, -98), 100, replace = TRUE),
  V3 = sample(c("A", "B", -98), 100, replace = TRUE),
  V4 = sample(c(1:10, -98, -99), 100, replace = TRUE),
  V5 = sample(LETTERS, 100, replace = TRUE)
)


test_that("make_labelled() works", {
  expect_true(is.data.frame(make_labelled(testdf, dataDscr)))
  expect_true(is.data.frame(make_labelled(testdf, dataDscr, declared = FALSE)))
})