inst/test-data/specific-redcapr/read-oneshot-eav/blank-for-gray-true.R

In REDCapR: Interaction Between R and REDCap

structure(list(record_id = 1:6, name_first = c("Nutmeg", "Tumtum", 
"Marcus", "Trudy", "John Lee", "blank-for-gray"), name_last = c("Nutmouse", 
"Nutmouse", "Wood", "DAG", "Walker", "blank-for-gray"), 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", 
NA), telephone = c("(405) 321-1111", "(405) 321-2222", "(405) 321-3333", 
"(405) 321-4444", "(405) 321-5555", NA), email = c("nutty@mouse.com", 
"tummy@mouse.comm", "mw@mwood.net", "peroxide@blonde.com", "left@hippocket.com", 
NA), dob = c("2003-08-30", "2003-03-10", "1934-04-09", "1952-11-02", 
"1955-04-15", NA), age = c(11L, 11L, 80L, 61L, 59L, NA), sex = c(0L, 
1L, 1L, 0L, 1L, NA), height = c(7, 6, 180, 165, 193.04, NA), 
    weight = c(1L, 1L, 80L, 54L, 104L, NA), bmi = c(204.1, 277.8, 
    24.7, 19.8, 27.9, NA), 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", 
    NA), mugshot = c(324901L, 324902L, 324903L, 324904L, 324905L, 
    NA), race___1 = c(FALSE, FALSE, FALSE, FALSE, TRUE, FALSE
    ), race___2 = c(FALSE, FALSE, FALSE, TRUE, FALSE, FALSE), 
    race___3 = c(FALSE, TRUE, FALSE, FALSE, FALSE, FALSE), race___4 = c(FALSE, 
    FALSE, TRUE, FALSE, FALSE, FALSE), race___5 = c(TRUE, TRUE, 
    TRUE, TRUE, FALSE, FALSE), race___6 = c(FALSE, FALSE, FALSE, 
    FALSE, TRUE, FALSE), ethnicity = c(1L, 1L, 0L, 1L, 2L, NA
    ), interpreter_needed = c(0L, 0L, 1L, NA, 0L, NA), demographics_complete = c(2L, 
    2L, 2L, 2L, 2L, 0L), health_complete = c(1L, 0L, 2L, 2L, 
    0L, NA), race_and_ethnicity_complete = c(2L, 0L, 2L, 2L, 
    2L, NA)), row.names = c(NA, -6L), class = c("tbl_df", "tbl", 
"data.frame"))