> dput(result$data)
structure(list(record_id = 1:5, name_first = c("Nutmeg", "Tumtum", 
"Marcus", "Trudy", "John Lee"), name_last = c("Nutmouse", "Nutmouse", 
"Wood", "DAG", "Walker"), address = c("14 Rose Cottage St.\nKenning UK, 323232", 
"14 Rose Cottage Blvd.\nKenning UK 34243", "243 Hill St.\nGuthrie OK 73402", 
"342 Elm\nDuncanville TX, 75116", "Hotel Suite\nNew Orleans LA, 70115"
), telephone = c("(432) 456-4848", "(234) 234-2343", "(433) 435-9865", 
"(987) 654-3210", "(333) 333-4444"), email = c("nutty@mouse.com", 
"tummy@mouse.comm", "mw@mwood.net", "peroxide@blonde.com", "left@hippocket.com"
), dob = c("2003-08-30", "2003-03-10", "1934-04-09", "1952-11-02", 
"1955-04-15"), age = c(10L, 10L, 79L, 61L, 58L), ethnicity = c(1L, 
1L, 0L, 1L, 1L), race = c(2L, 6L, 4L, 4L, 4L), sex = c(0L, 1L, 
1L, 0L, 1L), height = c(5, 6, 180, 165, 193.04), weight = c(1L, 
1L, 80L, 54L, 104L), bmi = c(400, 277.8, 24.7, 19.8, 27.9), comments = c("Character in a book, with some guessing", 
"A mouse character from a good book", "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", 
"Had a hand for trouble and a eye for cash\nHe had a gold watch chain and a black mustache\n\nhttps://www.youtube.com/watch?v=DUESvITrvsI"
), demographics_complete = c(2L, 2L, 2L, 2L, 2L)), .Names = c("record_id", 
"name_first", "name_last", "address", "telephone", "email", "dob", 
"age", "ethnicity", "race", "sex", "height", "weight", "bmi", 
"comments", "demographics_complete"), class = "data.frame", row.names = c(NA, 
-5L))