Create a visual table from <summarised_result> object from summariseCohortCodelist()

Usage

tableCohortCodelist(result, type = "reactable")

Arguments

result

A summarised_result object.

type

Type of table. Supported types: "gt", "flextable", "tibble", "datatable", "reactable".

Value

A visual table with the results.

Examples

# \donttest{
library(CohortCharacteristics)
library(CDMConnector)
library(duckdb)
library(dplyr, warn.conflicts = FALSE)

dbName <- "GiBleed"
requireEunomia(datasetName = dbName)
con <- dbConnect(drv = duckdb(dbdir = eunomiaDir(datasetName = dbName)))
cdm <- cdmFromCon(con = con, cdmSchema = "main", writeSchema = "main")

cdm <- generateConceptCohortSet(cdm = cdm,
                                conceptSet = list(pharyngitis = 4112343L),
                                name = "my_cohort")

result <- summariseCohortCodelist(cdm$my_cohort)

tableCohortCodelist(result)

# }