# \donttest{
library(OmopSketch)
library(omock)
cdm <- mockCdmFromDataset(datasetName = "GiBleed", source = "duckdb")
summarisedResult <- summariseClinicalRecords(
cdm = cdm,
omopTableName = c("condition_occurrence", "drug_exposure"),
recordsPerPerson = c("mean", "sd"),
inObservation = TRUE,
standardConcept = TRUE,
sourceVocabulary = TRUE,
domainId = TRUE,
typeConcept = TRUE
)
summarisedResult |>
suppress(minCellCount = 5) |>
tableClinicalRecords()
cdmDisconnect(cdm = cdm)
# }
Run the code above in your browser using DataLab