if (FALSE) {
unlockREDCap(connections = c(rcon = "project_alias"),
url = "your_redcap_url",
keyring = "API_KEYs",
envir = globalenv())
response <- makeApiCall(rcon,
body = list(content = 'file',
action = 'export',
record = '1',
field = 'file_upload_test',
event = 'event_1_arm_1'))
reconstituteFileFromExport(response,
dir = tempdir())
}
Run the code above in your browser using DataLab