tests/testthat/test-tbl_butcher.R

In gtsummary: Presentation-Ready Data Summary and Analytic Result Tables

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"))
})