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