tests/testthat/test-makeStandardTable.R

In Rapporteket/rapbase: Base Functions and Resources for 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
  )))
})