# \donttest{
library(PatientProfiles)
library(duckdb)
library(CDMConnector)
library(dplyr, warn.conflicts = FALSE)
dbName <- "GiBleed"
requireEunomia(datasetName = dbName)
con <- dbConnect(drv = duckdb(dbdir = eunomiaDir(datasetName = dbName)))
cdm <- cdmFromCon(con = con, cdmSchema = "main", writeSchema = "main")
cdm$drug_exposure |>
addConceptName(column = "drug_concept_id", nameStyle = "drug_name") |>
glimpse()
cdm$drug_exposure |>
addConceptName() |>
glimpse()
# }
Run the code above in your browser using DataLab