dbc <- nodbi::src_sqlite(
dbname = system.file("extdata", "demo.sqlite", package = "ctrdata"),
collection = "my_trials")
df <- dbGetFieldsIntoDf(
fields = c(
"endPoints.endPoint",
"subjectDisposition.postAssignmentPeriods"),
con = dbc)
suppressWarnings(
dfListExtractKey(
df = df,
list.key = list(
c("endPoints.endPoint",
"^title"),
c("subjectDisposition.postAssignmentPeriods",
"arms.arm.type.value"))
))
Run the code above in your browser using DataLab