inst/test-data/specific-redcapr/event-instruments/2-arms-retrieve-both-arms.R

In OuhscBbmc/REDCapR: Interaction Between R and REDCap

structure(list(arm_num = c(1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L
), unique_event_name = c("enrollment_arm_1", "enrollment_arm_1", 
"enrollment_arm_1", "dose_1_arm_1", "visit_1_arm_1", "visit_1_arm_1", 
"visit_1_arm_1", "visit_1_arm_1", "dose_2_arm_1", "visit_2_arm_1", 
"visit_2_arm_1", "visit_2_arm_1", "visit_2_arm_1", "final_visit_arm_1", 
"final_visit_arm_1", "enrollment_arm_2", "enrollment_arm_2", 
"enrollment_arm_2", "deadline_to_opt_ou_arm_2", "first_dose_arm_2", 
"first_visit_arm_2", "first_visit_arm_2", "final_visit_arm_2", 
"final_visit_arm_2", "deadline_to_return_arm_2"), form = c("demographics", 
"contact_info", "baseline_data", "patient_morale_questionnaire", 
"visit_lab_data", "patient_morale_questionnaire", "visit_blood_workup", 
"visit_observed_behavior", "patient_morale_questionnaire", "visit_lab_data", 
"patient_morale_questionnaire", "visit_blood_workup", "visit_observed_behavior", 
"completion_data", "completion_project_questionnaire", "demographics", 
"contact_info", "baseline_data", "contact_info", "patient_morale_questionnaire", 
"patient_morale_questionnaire", "visit_observed_behavior", "visit_observed_behavior", 
"completion_project_questionnaire", "contact_info")), row.names = c(NA, 
-25L), spec = structure(list(cols = list(arm_num = structure(list(), class = c("collector_integer", 
"collector")), unique_event_name = structure(list(), class = c("collector_character", 
"collector")), form = structure(list(), class = c("collector_character", 
"collector"))), default = structure(list(), class = c("collector_guess", 
"collector")), delim = ","), class = "col_spec"), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"))