tests/testthat/test-tbl_demographics.R

test_that("tbl_demographics() works", {
  expect_silent(
    tbl <-
      gtsummary::trial |>
      tbl_demographics(
        by = trt,
        include = c(age, grade)
      )
  )
})

Try the crane package in your browser

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

crane documentation built on April 12, 2025, 2 a.m.