# \donttest{
library(dplyr)
cdm <- mockOmopSketch()
result <- cdm |>
summariseConceptSetCounts(
conceptSet = list(
"Renal agenesis" = 194152,
"Manic mood" = c(4226696, 4304866, 37110496, 40371897)
)
)
result |>
filter(variable_name == "Number subjects") |>
plotConceptSetCounts(facet = "codelist_name", colour = "standard_concept_name")
PatientProfiles::mockDisconnect(cdm)
# }
Run the code above in your browser using DataLab