if (FALSE) {
uri <- "https://bbmc.ouhsc.edu/redcap/api/"
# Query a classic project with 3 arms
token_1 <- "CDF9F3767E413FDBAA31D92E9F36730A"
result_1 <- REDCapR::redcap_arm_export(redcap_uri=uri, token=token_1)
result_1$has_arms
result_1$data
# Query a classic project without arms
token_2 <- "D70F9ACD1EDD6F151C6EA78683944E98"
result_2 <- REDCapR::redcap_arm_export(redcap_uri=uri, token=token_2)
result_2$has_arms
result_2$data
}
Run the code above in your browser using DataLab