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

In OuhscBbmc/REDCapR: Interaction Between R and REDCap

structure(list(record = c("3", "3", "3", "3", "3", "3", "3", 
"3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", "3", 
"3", "4", "4", "4", "4", "4", "4", "4", "4", "4", "4", "4", "4", 
"4", "4", "4", "4", "4", "4", "4", "4"), field_name = c("address", 
"telephone", "email", "dob", "age", "ethnicity", "race", "sex", 
"height", "weight", "bmi", "comments", "demographics_complete", 
"record_id", "name_first", "name_last", "health_complete", "race_and_ethnicity_complete", 
"race", "mugshot", "interpreter_needed", "address", "telephone", 
"email", "dob", "ethnicity", "sex", "height", "weight", "bmi", 
"demographics_complete", "record_id", "comments", "age", "name_first", 
"name_last", "health_complete", "race_and_ethnicity_complete", 
"race", "race", "mugshot"), value = c("243 Hill St.\nGuthrie OK 73402", 
"(405) 321-3333", "mw@mwood.net", "1934-04-09", "80", "0", "4", 
"1", "180", "80", "24.7", "completely made up", "2", "3", "Marcus", 
"Wood", "2", "2", "5", "197979", "1", "342 Elm\nDuncanville TX, 75116", 
"(405) 321-4444", "peroxide@blonde.com", "1952-11-02", "1", "0", 
"165", "54", "19.8", "2", "4", "This record doesn't have a DAG assigned\n\nSo call up Trudy on the telephone\nSend her a letter in the mail", 
"61", "Trudy", "DAG", "2", "2", "2", "5", "198002")), row.names = c(NA, 
-41L), spec = structure(list(cols = list(record = structure(list(), class = c("collector_character", 
"collector")), field_name = structure(list(), class = c("collector_character", 
"collector")), value = structure(list(), class = c("collector_character", 
"collector"))), default = structure(list(), class = c("collector_character", 
"collector")), delim = ","), class = "col_spec"), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"))