inst/test-data/specific-redcapr/read-eav-oneshot/specify-fields-zero-length.R

In 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", 
"2", "2", "2", "2", "2", "2", "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", "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", "5", "5", "5", 
"5", "5", "5", "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", "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", "sex", "height", "weight", 
"bmi", "comments", "demographics_complete", "record_id", "name_first", 
"name_last", "health_complete", "race_and_ethnicity_complete", 
"race", "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", "address", "demographics_complete", 
"record_id", "telephone", "email", "dob", "age", "ethnicity", 
"sex", "height", "weight", "bmi", "comments", "name_first", "name_last", 
"health_complete", "race_and_ethnicity_complete", "race", "race", 
"mugshot", "interpreter_needed"), 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", 
"14 Rose Cottage Blvd.\nKenning UK 34243", "(405) 321-2222", 
"tummy@mouse.comm", "2003-03-10", "11", "1", "1", "6", "1", "277.8", 
"A mouse character from a good book", "2", "2", "Tumtum", "Nutmouse", 
"0", "0", "3", "5", "197978", "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", "Hotel Suite\nNew Orleans LA, 70115", 
"2", "5", "(405) 321-5555", "left@hippocket.com", "1955-04-15", 
"59", "2", "1", "193.04", "104", "27.9", "Had a hand for trouble and a eye for cash\n\nHe had a gold watch chain and a black mustache", 
"John Lee", "Walker", "0", "2", "1", "6", "198021", "0")), row.names = c(NA, 
-103L), 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"))