tests/testthat/test-fnc_styleTabC2.R

In eCerto: Statistical Tests for the Production of Reference Materials

testthat::test_that(
  desc = "styleTabC2 works",
  code = {
    x <- eCerto:::test_Certification_Excel()
    suppressWarnings({ x <- eCerto:::prepTabC2(dat = x) })
    x <- eCerto:::styleTabC2(x = x, n = 2)
    testthat::expect_true(inherits(x, "datatables"))
  }
)