# \donttest{
library(dplyr)
library(OmopSketch)
library(omock)
cdm <- mockCdmFromDataset(datasetName = "GiBleed", source = "duckdb")
result <- summariseConceptSetCounts(
cdm = cdm,
conceptSet = list(
"asthma" = c(4051466, 317009),
"rhinitis" = c(4280726, 4048171, 40486433)
)
)
result |>
filter(variable_name == "Number subjects") |>
plotConceptSetCounts(
facet = "codelist_name",
colour = "standard_concept_name"
)
cdmDisconnect(cdm = cdm)
# }
Run the code above in your browser using DataLab