inst/test-data/specific-redcapr/read-eav-oneshot/specify-records.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", "1", "1", "1", "1", "1", "1", 
"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", "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", 
"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("14 Rose Cottage St.\nKenning UK, 323232", 
"(405) 321-1111", "nutty@mouse.com", "2003-08-30", "11", "1", 
"0", "7", "1", "204.1", "Character in a book, with some guessing", 
"2", "1", "Nutmeg", "Nutmouse", "1", "2", "5", "197977", "0", 
"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, 
-61L), 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"))