tests/testthat/test-makeAbbrList.R

In beckerbenj/eatCodebook: Automatic Codebook Generation

test_that("multiplication works", {
  #out <- makeAbbrList("tests/testthat/helper_abbrList.xlsx")
  out <- makeAbbrList("helper_abbrList.xlsx")
  expect_equal(length(out), 34)
  expect_equal(out[1], "\\clearpage")
  expect_equal(out[34], "\\end{xltabular}\n")
  expect_equal(out[18], "Int. & International\\\\")
  expect_equal(out[32], "Min. & Minimum\\\\")
  expect_equal(out[25], "\\textbf{Symbol} & \\textbf{Bedeutung}\\\\")
})



# test <- makeAbbrList(filePath = "other_code/abkuerzungsverzeichnis.xlsx")
# abkuerzverz <- makeAbkVerz(varue.file="other_code/varue.xlsx",
#                            sheets=c("Akronyme" , "Statistische Formelzeichen") ,
#                            headings=list("Akronyme"=c( "Abkürzung", "Bedeutung") ,
#                                          "Statistische Formelzeichen"=c( "Symbol", "Bedeutung")) ,
#                            captions=list("Akronyme"=c( "Abkürzungen") , "Statistische Formelzeichen"=c( "Statistische Formelzeichen"))  )
#
# all.equal(test, abkuerzverz)
#
# View(data.frame(neu = test, alt = abkuerzverz))