inst/test-data/specific-redcapr/delete/multiple-arm-four-records.R

In OuhscBbmc/REDCapR: Interaction Between R and REDCap

structure(list(record_id = c(101, 101, 101, 102, 102, 103, 103, 
104, 104, 104, 105, 105, 106, 106, 106, 107, 107, 107, 108, 108, 
108, 109, 109, 109, 110, 110, 110, 111, 111, 111, 112, 112, 112, 
113, 113, 113, 114, 114, 114, 115, 115, 115, 116, 116, 116, 117, 
117, 117, 118, 118, 118, 119, 119, 119, 120, 120), redcap_event_name = c("event_1_arm_1", 
"event_1_arm_2", "event_1_arm_3", "event_1_arm_1", "event_1_arm_3", 
"event_1_arm_1", "event_1_arm_3", "event_1_arm_1", "event_1_arm_2", 
"event_1_arm_3", "event_1_arm_1", "event_1_arm_3", "event_1_arm_1", 
"event_1_arm_2", "event_1_arm_3", "event_1_arm_1", "event_1_arm_2", 
"event_1_arm_3", "event_1_arm_1", "event_1_arm_2", "event_1_arm_3", 
"event_1_arm_1", "event_1_arm_2", "event_1_arm_3", "event_1_arm_1", 
"event_1_arm_2", "event_1_arm_3", "event_1_arm_1", "event_1_arm_2", 
"event_1_arm_3", "event_1_arm_1", "event_1_arm_2", "event_1_arm_3", 
"event_1_arm_1", "event_1_arm_2", "event_1_arm_3", "event_1_arm_1", 
"event_1_arm_2", "event_1_arm_3", "event_1_arm_1", "event_1_arm_2", 
"event_1_arm_3", "event_1_arm_1", "event_1_arm_2", "event_1_arm_3", 
"event_1_arm_1", "event_1_arm_2", "event_1_arm_3", "event_1_arm_1", 
"event_1_arm_2", "event_1_arm_3", "event_1_arm_1", "event_1_arm_2", 
"event_1_arm_3", "event_1_arm_1", "event_1_arm_3"), birth_date = structure(c(18383, 
18383, 18383, 18414, 18414, 18444, 18444, 18475, 18475, 18475, 
18506, 18506, 18536, 18536, 18536, 18567, 18567, 18567, 18597, 
18597, 18597, 18628, 18628, 18628, 18659, 18659, 18659, 18687, 
18687, 18687, 18718, 18718, 18718, 18748, 18748, 18748, 18779, 
18779, 18779, 18809, 18809, 18809, 18840, 18840, 18840, 18871, 
18871, 18871, 18901, 18901, 18901, 18932, 18932, 18932, 18962, 
18962), class = "Date"), position = c("pg", "pg", "pg", "sg", 
"sg", "sf", "sf", "pf", "pf", "pf", "c", "c", "pg", "pg", "pg", 
"sg", "sg", "sg", "sf", "sf", "sf", "pf", "pf", "pf", "c", "c", 
"c", "pg", "pg", "pg", "sg", "sg", "sg", "sf", "sf", "sf", "pf", 
"pf", "pf", "c", "c", "c", "pg", "pg", "pg", "sg", "sg", "sg", 
"sf", "sf", "sf", "pf", "pf", "pf", "c", "c"), demographics_complete = c(2, 
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2)), row.names = c(NA, -56L
), class = "data.frame")