inst/test-data/specific-redcapr/read-oneshot/filter-character.R

In OuhscBbmc/REDCapR: Interaction Between R and REDCap

structure(list(record_id = 5, name_first = "John Lee", name_last = "Walker", 
    address = "Hotel Suite\nNew Orleans LA, 70115", telephone = "(405) 321-5555", 
    email = "left@hippocket.com", dob = structure(-5375, class = "Date"), 
    age = 59, sex = 1, demographics_complete = 2, height = 193.04, 
    weight = 104, bmi = 27.9, comments = "Had a hand for trouble and a eye for cash\n\nHe had a gold watch chain and a black mustache", 
    mugshot = "mugshot-5.jpg", health_complete = 0, race___1 = 1, 
    race___2 = 0, race___3 = 0, race___4 = 0, race___5 = 0, race___6 = 1, 
    ethnicity = 2, interpreter_needed = 0, race_and_ethnicity_complete = 2), class = "data.frame", row.names = c(NA, 
-1L), spec = structure(list(cols = list(record_id = structure(list(), class = c("collector_double", 
"collector")), name_first = structure(list(), class = c("collector_character", 
"collector")), name_last = structure(list(), class = c("collector_character", 
"collector")), address = structure(list(), class = c("collector_character", 
"collector")), telephone = structure(list(), class = c("collector_character", 
"collector")), email = structure(list(), class = c("collector_character", 
"collector")), dob = structure(list(format = ""), class = c("collector_date", 
"collector")), age = structure(list(), class = c("collector_double", 
"collector")), sex = structure(list(), class = c("collector_double", 
"collector")), demographics_complete = structure(list(), class = c("collector_double", 
"collector")), height = structure(list(), class = c("collector_double", 
"collector")), weight = structure(list(), class = c("collector_double", 
"collector")), bmi = structure(list(), class = c("collector_double", 
"collector")), comments = structure(list(), class = c("collector_character", 
"collector")), mugshot = structure(list(), class = c("collector_character", 
"collector")), health_complete = structure(list(), class = c("collector_double", 
"collector")), race___1 = structure(list(), class = c("collector_double", 
"collector")), race___2 = structure(list(), class = c("collector_double", 
"collector")), race___3 = structure(list(), class = c("collector_double", 
"collector")), race___4 = structure(list(), class = c("collector_double", 
"collector")), race___5 = structure(list(), class = c("collector_double", 
"collector")), race___6 = structure(list(), class = c("collector_double", 
"collector")), ethnicity = structure(list(), class = c("collector_double", 
"collector")), interpreter_needed = structure(list(), class = c("collector_double", 
"collector")), race_and_ethnicity_complete = structure(list(), class = c("collector_double", 
"collector"))), default = structure(list(), class = c("collector_guess", 
"collector")), skip = 1L), class = "col_spec"))