inst/test-data/specific-redcapr/read-batch-simple/label-and-dag-one-single-batch.R

In REDCapR: Interaction Between R and REDCap

structure(list(record_id = c(1, 2, 3, 4, 5), redcap_data_access_group = c("dag_1", 
"dag_1", "dag_1", NA, "dag_2"), name_first = c("Nutmeg", "Tumtum", 
"Marcus", "Trudy", "John Lee"), name_last = c("Nutmouse", "Nutmouse", 
"Wood", "DAG", "Walker"), address = c("14 Rose Cottage St.\nKenning UK, 323232", 
"14 Rose Cottage Blvd.\nKenning UK 34243", "243 Hill St.\nGuthrie OK 73402", 
"342 Elm\nDuncanville TX, 75116", "Hotel Suite\nNew Orleans LA, 70115"
), telephone = c("(405) 321-1111", "(405) 321-2222", "(405) 321-3333", 
"(405) 321-4444", "(405) 321-5555"), email = c("nutty@mouse.com", 
"tummy@mouse.comm", "mw@mwood.net", "peroxide@blonde.com", "left@hippocket.com"
), dob = structure(c(12294, 12121, -13051, -6269, -5375), class = "Date"), 
    age = c(11, 11, 80, 61, 59), sex = c("Female", "Male", "Male", 
    "Female", "Male"), demographics_complete = c("Complete", 
    "Complete", "Complete", "Complete", "Complete"), height = c(7, 
    6, 180, 165, 193.04), weight = c(1, 1, 80, 54, 104), bmi = c(204.1, 
    277.8, 24.7, 19.8, 27.9), comments = c("Character in a book, with some guessing", 
    "A mouse character from a good book", "completely made up", 
    "This record doesn't have a DAG assigned\n\nSo call up Trudy on the telephone\nSend her a letter in the mail", 
    "Had a hand for trouble and a eye for cash\n\nHe had a gold watch chain and a black mustache"
    ), mugshot = c("mugshot-1.jpg", "mugshot-2.jpg", "mugshot-3.jpg", 
    "mugshot-4.jpg", "mugshot-5.jpg"), health_complete = c("Unverified", 
    "Incomplete", "Complete", "Complete", "Incomplete"), race___1 = c("Unchecked", 
    "Unchecked", "Unchecked", "Unchecked", "Checked"), race___2 = c("Unchecked", 
    "Unchecked", "Unchecked", "Checked", "Unchecked"), race___3 = c("Unchecked", 
    "Checked", "Unchecked", "Unchecked", "Unchecked"), race___4 = c("Unchecked", 
    "Unchecked", "Checked", "Unchecked", "Unchecked"), race___5 = c("Checked", 
    "Checked", "Checked", "Checked", "Unchecked"), race___6 = c("Unchecked", 
    "Unchecked", "Unchecked", "Unchecked", "Checked"), ethnicity = c("NOT Hispanic or Latino", 
    "NOT Hispanic or Latino", "Unknown / Not Reported", "NOT Hispanic or Latino", 
    "Hispanic or Latino"), interpreter_needed = c(FALSE, FALSE, 
    TRUE, NA, FALSE), race_and_ethnicity_complete = c("Complete", 
    "Incomplete", "Complete", "Complete", "Complete")), row.names = c(NA, 
-5L), class = "data.frame")