tests/testthat/test-fnc_styleTabL1.R

testthat::test_that(
  desc = "styleTabL1 works",
  code = {
    x <- data.frame("Value"=1, "Date"=Sys.Date(), "File"="XX.smp")
    testthat::expect_true(inherits(eCerto:::styleTabL1(x = x), "datatables"))
  }
)

Try the eCerto package in your browser

Any scripts or data that you put into this service are public.

eCerto documentation built on April 12, 2025, 9:13 a.m.