Nothing
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")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.