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

In REDCapR: Interaction Between R and REDCap

structure(list(record_id = c("1", "2", "3", "4", "5"), 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 = c("2003-08-30", "2003-03-10", "1934-04-09", "1952-11-02", 
"1955-04-15"), age = c("11", "11", "80", "61", "59"), sex = c("0", 
"1", "1", "0", "1"), demographics_complete = c("2", "2", "2", 
"2", "2"), 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("1", "0", 
"2", "2", "0"), race___1 = c("0", "0", "0", "0", "1"), race___2 = c("0", 
"0", "0", "1", "0"), race___3 = c("0", "1", "0", "0", "0"), race___4 = c("0", 
"0", "1", "0", "0"), race___5 = c("1", "1", "1", "1", "0"), race___6 = c("0", 
"0", "0", "0", "1"), ethnicity = c("1", "1", "0", "1", "2"), 
    interpreter_needed = c("0", "0", "1", NA, "0"), race_and_ethnicity_complete = c("2", 
    "0", "2", "2", "2")), class = "data.frame", row.names = c(NA, 
-5L), spec = structure(list(cols = list(record_id = structure(list(), class = c("collector_character", 
"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(), class = c("collector_character", 
"collector")), age = structure(list(), class = c("collector_character", 
"collector")), sex = structure(list(), class = c("collector_character", 
"collector")), demographics_complete = structure(list(), class = c("collector_character", 
"collector")), height = structure(list(), class = c("collector_character", 
"collector")), weight = structure(list(), class = c("collector_character", 
"collector")), bmi = structure(list(), class = c("collector_character", 
"collector")), comments = structure(list(), class = c("collector_character", 
"collector")), mugshot = structure(list(), class = c("collector_character", 
"collector")), health_complete = structure(list(), class = c("collector_character", 
"collector")), race___1 = structure(list(), class = c("collector_character", 
"collector")), race___2 = structure(list(), class = c("collector_character", 
"collector")), race___3 = structure(list(), class = c("collector_character", 
"collector")), race___4 = structure(list(), class = c("collector_character", 
"collector")), race___5 = structure(list(), class = c("collector_character", 
"collector")), race___6 = structure(list(), class = c("collector_character", 
"collector")), ethnicity = structure(list(), class = c("collector_character", 
"collector")), interpreter_needed = structure(list(), class = c("collector_character", 
"collector")), race_and_ethnicity_complete = structure(list(), class = c("collector_character", 
"collector"))), default = structure(list(), class = c("collector_character", 
"collector")), skip = 1L), class = "col_spec"))