Format a summarised_large_scale_characteristics object into a visual table.

`r lifecycle::badge("deprecated")`

Usage

tableLargeScaleCharacteristics(
  result,
  type = "gt",
  formatEstimateName = c(`N (%)` = "<count> (<percentage>%)"),
  splitStrata = TRUE,
  header = c("cdm name", "cohort name", "strata", "window name"),
  topConcepts = 10,
  minCellCount = 5
)

Arguments

result

A summarised_large_scalecharacteristics object.

type

Output type ("gt" or "flextable").

formatEstimateName

Named list of estimate name's to join, sorted by computation order. Indicate estimate_name's between <...>.

splitStrata

Whether to split strata_group and strata_level to multiple columns.

header

Specify the headers of the table.

topConcepts

Number of concepts to restrict the table.

minCellCount

Minimum number of counts to display.

Value

A formatted table.

Examples

if (FALSE) {
library(DBI)
library(duckdb)
library(CDMConnector)

con <- dbConnect(duckdb(), eunomia_dir())
cdm <- cdmFromCon(con = con, cdmSchema = "main", writeSchema = "main")
cdm <- generateConceptCohortSet(
  cdm = cdm,
  conceptSet = list("viral_pharyngitis" = 4112343),
  name = "my_cohort"
)
result <- summariseLargeScaleCharacteristics(
  cohort = cdm$my_cohort,
  eventInWindow = "condition_occurrence",
  episodeInWindow = "drug_exposure"
)
tableLargeScaleCharacteristics(result)
}