# \donttest{
library(OmopSketch)
library(omock)
library(dplyr)
library(here)
cdm <- mockCdmFromDataset(datasetName = "GiBleed", source = "duckdb")
result <- databaseCharacteristics(
cdm = cdm,
sample = 100,
omopTableName = c("drug_exposure", "condition_occurrence"),
sex = TRUE,
ageGroup = list(c(0, 50), c(51, 100)),
interval = "years",
conceptIdCounts = FALSE
)
result |>
glimpse()
shinyCharacteristics(result = result, directory = here())
cdmDisconnect(cdm = cdm)
# }
Run the code above in your browser using DataLab