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

In OuhscBbmc/REDCapR: Interaction Between R and REDCap

structure(list(record_id = c(3, 4), name_first = c("Marcus", 
"Trudy"), name_last = c("Wood", "DAG"), address = c("243 Hill St.\nGuthrie OK 73402", 
"342 Elm\nDuncanville TX, 75116"), telephone = c("(405) 321-3333", 
"(405) 321-4444"), email = c("mw@mwood.net", "peroxide@blonde.com"
), dob = structure(c(-13051, -6269), class = "Date"), age = c(80, 
61), sex = c(1, 0), demographics_complete = c(2, 2), height = c(180, 
165), weight = c(80, 54), bmi = c(24.7, 19.8), comments = c("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"
), mugshot = c("mugshot-3.jpg", "mugshot-4.jpg"), health_complete = c(2, 
2), race___1 = c(0, 0), race___2 = c(0, 1), race___3 = c(0, 0
), race___4 = c(1, 0), race___5 = c(1, 1), race___6 = c(0, 0), 
    ethnicity = c(0, 1), interpreter_needed = c(1, NA), race_and_ethnicity_complete = c(2, 
    2)), class = "data.frame", row.names = c(NA, -2L), 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"))