tests/testthat/test-table.R

test_that("multiplication works", {
  skip_on_cran()
  cdm <- mockCohortCharacteristics() |>
    copyCdm()
  result <- summariseCharacteristics(cdm$cohort1)
  expect_no_error(apc <- availablePlotColumns(result))
  expect_no_error(atc <- availableTableColumns(result))
  dropCreatedTables(cdm = cdm)
})

Try the CohortCharacteristics package in your browser

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

CohortCharacteristics documentation built on Nov. 5, 2025, 5:07 p.m.