tests/testthat/test-sum-table.R

In Rbearcat: University of Cincinnati Themes and Utilities for Econometrics and Data Science

test_that("bcat_sum_table works with numeric data", {
  result <- bcat_sum_table(mtcars[, c("mpg", "wt", "hp")], doc_type = "html")
  expect_true(inherits(result, "knitr_kable") || inherits(result, "kableExtra"))
})

test_that("bcat_sum_table works with by grouping", {
  result <- bcat_sum_table(mtcars[, c("mpg", "wt", "cyl")],
                           by = "cyl", doc_type = "html")
  expect_true(inherits(result, "knitr_kable") || inherits(result, "kableExtra"))
})