tests/testthat/test-makeStandardTable.R

In Rapporteket/ablanor: AblaNor- Rapporteket

test_that("function returns kable objects", {
  expect_true("kableExtra" %in% class(mst(tab = mtcars[1:10, ],
                                          type = "html")))
  expect_true("knitr_kable" %in% class(mst(tab = mtcars[1:10, ], lsd = TRUE)))
  expect_true("knitr_kable" %in% class(mst(tab = mtcars[1:10, ],
                                           type = "pdf", lsd = FALSE)))

})