tests/testthat/test-cor-table.R

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

test_that("bcat_cor_table produces lower triangle by default", {
  result <- bcat_cor_table(mtcars[, c("mpg", "wt", "hp")], doc_type = "html")
  expect_true(inherits(result, "knitr_kable") || inherits(result, "kableExtra"))
})

test_that("bcat_cor_table supports full matrix", {
  result <- bcat_cor_table(mtcars[, c("mpg", "wt")],
                           full_matrix = TRUE, doc_type = "html")
  expect_true(inherits(result, "knitr_kable") || inherits(result, "kableExtra"))
})

test_that("bcat_cor_table supports different methods", {
  result <- bcat_cor_table(mtcars[, c("mpg", "wt")],
                           method = "spearman", doc_type = "html")
  expect_true(inherits(result, "knitr_kable") || inherits(result, "kableExtra"))
})