inst/test-data/specific-redcapr/read-eav-oneshot/specify-forms.R

In OuhscBbmc/REDCapR: Interaction Between R and REDCap

structure(list(record = c("1", "1", "1", "1", "1", "1", "1", 
"1", "1", "1", "1", "1", "1", "1", "2", "2", "2", "2", "2", "2", 
"2", "2", "2", "2", "2", "2", "2", "2", "2", "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", "5", 
"5", "5", "5", "5", "5", "5", "5", "5", "5", "5", "5", "5", "5", 
"5"), field_name = c("address", "telephone", "email", "dob", 
"age", "ethnicity", "sex", "demographics_complete", "record_id", 
"name_first", "name_last", "race_and_ethnicity_complete", "race", 
"interpreter_needed", "address", "telephone", "email", "dob", 
"age", "ethnicity", "sex", "demographics_complete", "record_id", 
"name_first", "name_last", "race_and_ethnicity_complete", "race", 
"race", "interpreter_needed", "address", "telephone", "email", 
"dob", "age", "ethnicity", "race", "sex", "demographics_complete", 
"record_id", "name_first", "name_last", "race_and_ethnicity_complete", 
"race", "interpreter_needed", "address", "telephone", "email", 
"dob", "ethnicity", "sex", "demographics_complete", "record_id", 
"age", "name_first", "name_last", "race_and_ethnicity_complete", 
"race", "race", "address", "demographics_complete", "record_id", 
"telephone", "email", "dob", "age", "ethnicity", "sex", "name_first", 
"name_last", "race_and_ethnicity_complete", "race", "race", "interpreter_needed"
), value = c("14 Rose Cottage St.\nKenning UK, 323232", "(405) 321-1111", 
"nutty@mouse.com", "2003-08-30", "11", "1", "0", "2", "1", "Nutmeg", 
"Nutmouse", "2", "5", "0", "14 Rose Cottage Blvd.\nKenning UK 34243", 
"(405) 321-2222", "tummy@mouse.comm", "2003-03-10", "11", "1", 
"1", "2", "2", "Tumtum", "Nutmouse", "0", "3", "5", "0", "243 Hill St.\nGuthrie OK 73402", 
"(405) 321-3333", "mw@mwood.net", "1934-04-09", "80", "0", "4", 
"1", "2", "3", "Marcus", "Wood", "2", "5", "1", "342 Elm\nDuncanville TX, 75116", 
"(405) 321-4444", "peroxide@blonde.com", "1952-11-02", "1", "0", 
"2", "4", "61", "Trudy", "DAG", "2", "2", "5", "Hotel Suite\nNew Orleans LA, 70115", 
"2", "5", "(405) 321-5555", "left@hippocket.com", "1955-04-15", 
"59", "2", "1", "John Lee", "Walker", "2", "1", "6", "0")), row.names = c(NA, 
-73L), 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"))