tests/testthat/test-getInputForDescriptives.R

In beckerbenj/eatCodebook: Automatic Codebook Generation

#test_that("get simple varue info", {
  #out <- getVarueInfo("tests/testthat/helper_varueInfo.xlsx")
#  out <- getVarInfo("helper_varueInfo.xlsx")
#  expect_equal(names(out[[1]])[1], "Var.Name")
#  expect_equal(out[[1]]$LabelSH[1], "Variable 1")
#  expect_equal(out[[1]]$Anmerkung.Var[1], "-")
#})