nutterb

library(redcapAPI)

key <- ''
rcon <- redcapConnection("https://redcap.vanderbilt.edu/api/", key, conn, 'MatchedRandomization1')

fr_ls <- function(rcon, folder_id = NA, recursive = FALSE) {
  args <- list(content = 'fileRepository', action = 'list', format = 'csv')
  if(!is.na(folder_id)) {
    args$folder_id <- folder_id
    parent <- folder_id