Nothing
test_that("tbl_butcher() works", {
tbl_big <-
trial %>%
tbl_summary(include = c(marker, trt))
expect_error(tbl_sml <- tbl_butcher(tbl_big), NA)
expect_snapshot(tbl_sml %>% as.data.frame())
expect_equal(tbl_sml, tbl_big[c("table_body", "table_styling")], ignore_attr = TRUE)
expect_true(inherits(tbl_sml, "gtsummary"))
})
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.