tests/testthat/test-clintable.R

test_that("Creation functions", {
  ct1 <- clintable(mtcars)
  ct2 <- clintable(mtcars, group_by = "gear")

  expect_equal(ct1$clinify_config$pagination_method, "default")
  expect_equal(ct2$clinify_config$pagination_method, "custom")
})

Try the clinify package in your browser

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

clinify documentation built on Aug. 8, 2025, 7:45 p.m.