# \donttest{
library(CohortCharacteristics)
library(omock)
library(dplyr, warn.conflicts = FALSE)
library(CDMConnector)
cdm <- mockCdmFromDataset(datasetName = "GiBleed", source = "duckdb")
cdm <- generateConceptCohortSet(cdm = cdm,
conceptSet = list(pharyngitis = 4112343L),
name = "my_cohort")
result <- summariseCohortCodelist(cdm$my_cohort)
tableCohortCodelist(result)
# }
Run the code above in your browser using DataLab