tests/testthat/test-tbl_split.R

skip_on_cran()

test_that("no errors/warnings with standard use", {
  t1 <- tbl_summary(trial)

  expect_snapshot(tbl_split(t1, variables = age) %>% purrr::map(as_tibble))
  expect_warning(tbl_split(t1, variables = age), NA)
})

Try the gtsummary package in your browser

Any scripts or data that you put into this service are public.

gtsummary documentation built on July 26, 2023, 5:27 p.m.