# NOT RUN {
# }
# NOT RUN {
db <- nodbi::src_sqlite(
collection = "my_collection"
)
df <- dbGetFieldsIntoDf(
fields = c(
"endPoints.endPoint",
"subjectDisposition.postAssignmentPeriods"),
con = db
)
dfListExtractKey(
df = df,
list.key = list(
c("endPoints.endPoint",
"^title"),
c("subjectDisposition.postAssignmentPeriods",
"arms.arm.type.value")
))
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab