if (FALSE) {
## define the LaBB-CAT URL
labbcat.url <- "https://labbcat.canterbury.ac.nz/demo/"
## Get the gender and year of birth of AP511_MikeThorpe
participant <- getParticipant(labbcat.url, "AP511_MikeThorpe",
c("participant_gender", "participant_year_of_birth"))
print(paste("ID:", participant$label,
"Gender:", participant$annotations$participant_gender$label,
"YOB:", participant$annotations$participant_year_of_birth$label))
}
Run the code above in your browser using DataLab