tests/testthat/test-separate_p_footnotes.R

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

skip_on_cran()

gts_tbl <-
  trial %>%
  select(trt, age, grade) %>%
  tbl_summary(by = trt) %>%
  add_p()

test_that("no errors/warnings with standard use", {
  expect_snapshot(separate_p_footnotes(gts_tbl) %>% as.data.frame())
  expect_error(separate_p_footnotes(mtcars))

  expect_error(tbl_split(gts_tbl), NA)
  expect_warning(tbl_split(gts_tbl), NA)
})