tests/testthat/test-show_header_names.R

skip_on_cran()

test_that("show_header_names works", {
  expect_error(
    trial %>% select(age) %>% tbl_summary() %>% show_header_names(quiet = TRUE),
    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.