# \donttest{
connectionDetails <- Eunomia::getEunomiaConnectionDetails()
Eunomia::createCohorts(
connectionDetails = connectionDetails,
cdmDatabaseSchema = "main",
cohortDatabaseSchema = "main",
cohortTable = "cohort"
)
connection <- DatabaseConnector::connect(connectionDetails)
covariateSettings <- createCohortAttrCovariateSettings(
attrDatabaseSchema = "main",
cohortAttrTable = "cohort_attribute",
attrDefinitionTable = "attribute_definition",
includeAttrIds = c(1),
isBinary = FALSE,
missingMeansZero = FALSE
)
covData <- getDbCohortAttrCovariatesData(
connection = connection,
tempEmulationSchema = NULL,
cdmDatabaseSchema = "main",
cdmVersion = "5",
cohortTable = "cohort",
cohortIds = 1,
rowIdField = "subject_id",
covariateSettings = covariateSettings,
aggregated = FALSE
)
# }
Run the code above in your browser using DataLab