update expectation for write_batch

ref #313
OuhscBbmc · Nov 18, 2020 · 1a7b806 · 1a7b806
1 parent 286a4be
commit 1a7b806
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 22 deletions.
diff --git a/inst/test-data/specific-redcapr/write-batch/default.R b/inst/test-data/specific-redcapr/write-batch/default.R
@@ -13,12 +13,12 @@ structure(list(record_id = c(1, 2, 3, 4, 5), name_first = c("Nutmeg",
     "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\n\nHe had a gold watch chain and a black mustache"
-    ), mugshot = c("[document]", "[document]", "[document]", 
-    "[document]", "[document]"), health_complete = c(1, 0, 2, 
-    2, 0), race___1 = c(0, 0, 0, 0, 1), race___2 = c(0, 0, 0, 
-    1, 0), race___3 = c(0, 1, 0, 0, 0), race___4 = c(0, 0, 1, 
-    0, 0), race___5 = c(1, 1, 1, 1, 0), race___6 = c(0, 0, 0, 
-    0, 1), ethnicity = c(1, 1, 0, 1, 2), race_and_ethnicity_complete = c(2, 
+    ), mugshot = c("mugshot-1.jpg", "mugshot-2.jpg", "mugshot-3.jpg", 
+    "mugshot-4.jpg", "mugshot-5.jpg"), health_complete = c(1, 
+    0, 2, 2, 0), race___1 = c(0, 0, 0, 0, 1), race___2 = c(0, 
+    0, 0, 1, 0), race___3 = c(0, 1, 0, 0, 0), race___4 = c(0, 
+    0, 1, 0, 0), race___5 = c(1, 1, 1, 1, 0), race___6 = c(0, 
+    0, 0, 0, 1), ethnicity = c(1, 1, 0, 1, 2), race_and_ethnicity_complete = c(2, 
     0, 2, 2, 2)), row.names = c(NA, -5L), spec = structure(list(
     cols = list(record_id = structure(list(), class = c("collector_double", 
     "collector")), name_first = structure(list(), class = c("collector_character", 
@@ -45,4 +45,4 @@ structure(list(record_id = c(1, 2, 3, 4, 5), name_first = c("Nutmeg",
     "collector")), ethnicity = 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")), skip = 1), class = "col_spec"), class = "data.frame")
+    "collector")), skip = 1L), class = "col_spec"), class = "data.frame")
diff --git a/inst/test-data/specific-redcapr/write-batch/update-one-field.R b/inst/test-data/specific-redcapr/write-batch/update-one-field.R
@@ -11,17 +11,17 @@ structure(list(record_id = c(1, 2, 3, 4, 5), name_first = c("Nutmeg",
     "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\n\nHe had a gold watch chain and a black mustache"
-    ), mugshot = c("[document]", "[document]", "[document]", 
-    "[document]", "[document]"), health_complete = c(1, 0, 2, 
-    2, 0), race___1 = c(0, 0, 0, 0, 1), race___2 = c(0, 0, 0, 
-    1, 0), race___3 = c(0, 1, 0, 0, 0), race___4 = c(0, 0, 1, 
-    0, 0), race___5 = c(1, 1, 1, 1, 0), race___6 = c(0, 0, 0, 
-    0, 1), ethnicity = c(1, 1, 0, 1, 2), race_and_ethnicity_complete = c(2, 
+    ), mugshot = c("mugshot-1.jpg", "mugshot-2.jpg", "mugshot-3.jpg", 
+    "mugshot-4.jpg", "mugshot-5.jpg"), health_complete = c(1, 
+    0, 2, 2, 0), race___1 = c(0, 0, 0, 0, 1), race___2 = c(0, 
+    0, 0, 1, 0), race___3 = c(0, 1, 0, 0, 0), race___4 = c(0, 
+    0, 1, 0, 0), race___5 = c(1, 1, 1, 1, 0), race___6 = c(0, 
+    0, 0, 0, 1), ethnicity = c(1, 1, 0, 1, 2), race_and_ethnicity_complete = c(2, 
     0, 2, 2, 2)), row.names = c(NA, -5L), 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")), address = structure(list(), class = c("collector_double", 
     "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", 
@@ -43,4 +43,4 @@ structure(list(record_id = c(1, 2, 3, 4, 5), name_first = c("Nutmeg",
     "collector")), ethnicity = 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")), skip = 1), class = "col_spec"), class = "data.frame")
+    "collector")), skip = 1L), class = "col_spec"), class = "data.frame")
diff --git a/inst/test-data/specific-redcapr/write-batch/update-two-fields.R b/inst/test-data/specific-redcapr/write-batch/update-two-fields.R
@@ -11,12 +11,12 @@ structure(list(record_id = c(1, 2, 3, 4, 5), name_first = c("Nutmeg",
     "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\n\nHe had a gold watch chain and a black mustache"
-    ), mugshot = c("[document]", "[document]", "[document]", 
-    "[document]", "[document]"), health_complete = c(1, 0, 2, 
-    2, 0), race___1 = c(0, 0, 0, 0, 1), race___2 = c(0, 0, 0, 
-    1, 0), race___3 = c(0, 1, 0, 0, 0), race___4 = c(0, 0, 1, 
-    0, 0), race___5 = c(1, 1, 1, 1, 0), race___6 = c(0, 0, 0, 
-    0, 1), ethnicity = c(1, 1, 0, 1, 2), race_and_ethnicity_complete = c(2, 
+    ), mugshot = c("mugshot-1.jpg", "mugshot-2.jpg", "mugshot-3.jpg", 
+    "mugshot-4.jpg", "mugshot-5.jpg"), health_complete = c(1, 
+    0, 2, 2, 0), race___1 = c(0, 0, 0, 0, 1), race___2 = c(0, 
+    0, 0, 1, 0), race___3 = c(0, 1, 0, 0, 0), race___4 = c(0, 
+    0, 1, 0, 0), race___5 = c(1, 1, 1, 1, 0), race___6 = c(0, 
+    0, 0, 0, 1), ethnicity = c(1, 1, 0, 1, 2), race_and_ethnicity_complete = c(2, 
     0, 2, 2, 2)), row.names = c(NA, -5L), spec = structure(list(
     cols = list(record_id = structure(list(), class = c("collector_double", 
     "collector")), name_first = structure(list(), class = c("collector_character", 
@@ -43,4 +43,4 @@ structure(list(record_id = c(1, 2, 3, 4, 5), name_first = c("Nutmeg",
     "collector")), ethnicity = 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")), skip = 1), class = "col_spec"), class = "data.frame")
+    "collector")), skip = 1L), class = "col_spec"), class = "data.frame")