# NOT RUN {
# }
# NOT RUN {
df <- dbGetFieldsIntoDf(
fields = c("endPoints.endPoint",
"subjectDisposition.postAssignmentPeriods"),
con = con
)
dfListExtractKey <- function(
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