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