inst/test-data/specific-redcapr/read-batch-plumbing/repeated.R

In OuhscBbmc/REDCapR: Interaction Between R and REDCap

structure(list(record_id = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2, 
2), redcap_repeat_instrument = c(NA, "blood_pressure", "blood_pressure", 
"blood_pressure", "laboratory", "laboratory", NA, "blood_pressure", 
"blood_pressure", "blood_pressure", "laboratory", "laboratory"
), redcap_repeat_instance = c(NA, 1, 2, 3, 1, 2, NA, 1, 2, 3, 
1, 2), height = c(1, NA, NA, NA, NA, NA, 2, NA, NA, NA, NA, NA
), weight = c(11, NA, NA, NA, NA, NA, 22, NA, NA, NA, NA, NA), 
    bmi = c(111, NA, NA, NA, NA, NA, 222, NA, NA, NA, NA, NA), 
    demographics_complete = c(2, NA, NA, NA, NA, NA, 2, NA, NA, 
    NA, NA, NA), sbp = c(NA, 1.1, 1.2, 1.3, NA, NA, NA, 2.1, 
    2.2, 2.3, NA, NA), dbp = c(NA, 11.1, 11.2, 11.3, NA, NA, 
    NA, 22.1, 22.2, 22.3, NA, NA), blood_pressure_complete = c(NA, 
    2, 2, 2, NA, NA, NA, 2, 2, 2, NA, NA), lab = c(NA, NA, NA, 
    NA, "aa1", "aa2", NA, NA, NA, NA, "bb1", "bb2"), conc = c(NA, 
    NA, NA, NA, "1.1 ppm", "1.2 ppm", NA, NA, NA, NA, "2.1 ppm", 
    "2.2 ppm"), laboratory_complete = c(NA, NA, NA, NA, 2, 2, 
    NA, NA, NA, NA, 2, 2)), row.names = c(NA, -12L), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"))