if (FALSE) {
a <- amber.login("https://amber-demo.obiba.org")
# Find interview records of a study
itws <- amber.interviews(a, study = "Trauma Registry")
# Get steps
steps <- amber.interviews_steps(itws)
# Get data of the step with name CONSENT
consent_data <- amber.interviews_step_data(steps, 'CONSENT')
# Count per agreement values (possible values are 0 or 1)
consent_data %>% count(AGREEMENT)
amber.logout(a)
}
Run the code above in your browser using DataLab