update read-oneshot

ref #542
OuhscBbmc · Oct 14, 2024 · 9956da8 · 9956da8
1 parent a3c595a
commit 9956da8
Showing 1 changed file with 30 additions and 2 deletions.
diff --git a/inst/test-data/specific-redcapr/read-oneshot/blank-for-gray-true.R b/inst/test-data/specific-redcapr/read-oneshot/blank-for-gray-true.R
@@ -17,9 +17,37 @@ NA), dob = structure(c(12294, 12121, -13051, -6269, -5375, NA
     "Had a hand for trouble and a eye for cash\n\nHe had a gold watch chain and a black mustache", 
     NA), mugshot = c("mugshot-1.jpg", "mugshot-2.jpg", "mugshot-3.jpg", 
     "mugshot-4.jpg", "mugshot-5.jpg", NA), health_complete = c(1, 
-    0, 2, 2, 0, NA), race___1 = c(0, 0, 0, 0, 1, 0), race___2 = c(0, 
+    0, 2, 2, 0, 0), race___1 = c(0, 0, 0, 0, 1, 0), race___2 = c(0, 
     0, 0, 1, 0, 0), race___3 = c(0, 1, 0, 0, 0, 0), race___4 = c(0, 
     0, 1, 0, 0, 0), race___5 = c(1, 1, 1, 1, 0, 0), race___6 = c(0, 
     0, 0, 0, 1, 0), ethnicity = c(1, 1, 0, 1, 2, NA), interpreter_needed = c(0, 
     0, 1, NA, 0, NA), race_and_ethnicity_complete = c(2, 0, 2, 
-    2, 2, NA)), row.names = c(NA, -6L), class = "data.frame")
+    2, 2, 0)), row.names = c(NA, -6L), spec = structure(list(
+    cols = list(record_id = structure(list(), class = c("collector_double", 
+    "collector")), name_first = structure(list(), class = c("collector_character", 
+    "collector")), name_last = structure(list(), class = c("collector_character", 
+    "collector")), address = structure(list(), class = c("collector_character", 
+    "collector")), telephone = structure(list(), class = c("collector_character", 
+    "collector")), email = structure(list(), class = c("collector_character", 
+    "collector")), dob = structure(list(format = ""), class = c("collector_date", 
+    "collector")), age = structure(list(), class = c("collector_double", 
+    "collector")), sex = structure(list(), class = c("collector_double", 
+    "collector")), demographics_complete = structure(list(), class = c("collector_double", 
+    "collector")), height = structure(list(), class = c("collector_double", 
+    "collector")), weight = structure(list(), class = c("collector_double", 
+    "collector")), bmi = structure(list(), class = c("collector_double", 
+    "collector")), comments = structure(list(), class = c("collector_character", 
+    "collector")), mugshot = structure(list(), class = c("collector_character", 
+    "collector")), health_complete = structure(list(), class = c("collector_double", 
+    "collector")), race___1 = structure(list(), class = c("collector_double", 
+    "collector")), race___2 = structure(list(), class = c("collector_double", 
+    "collector")), race___3 = structure(list(), class = c("collector_double", 
+    "collector")), race___4 = structure(list(), class = c("collector_double", 
+    "collector")), race___5 = structure(list(), class = c("collector_double", 
+    "collector")), race___6 = structure(list(), class = c("collector_double", 
+    "collector")), ethnicity = structure(list(), class = c("collector_double", 
+    "collector")), interpreter_needed = structure(list(), class = c("collector_double", 
+    "collector")), race_and_ethnicity_complete = structure(list(), class = c("collector_double", 
+    "collector"))), default = structure(list(), class = c("collector_guess", 
+    "collector")), delim = ","), class = "col_spec"), class = c("spec_tbl_df", 
+"tbl_df", "tbl", "data.frame"))