Nothing
test_that("modify_column_indent() works", {
expect_error(
tbl <-
trial %>%
select(grade) %>%
tbl_summary() %>%
modify_column_indent(columns = label, undo = TRUE),
NA
)
expect_snapshot(tbl %>% as.data.frame())
expect_equal(
tbl$table_styling$text_format$undo_text_format,
c(FALSE, TRUE)
)
})
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.