add empty image

ref #530
OuhscBbmc · Sep 5, 2024 · 1e8a47e · 1e8a47e
1 parent 361ea2f
commit 1e8a47e
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 9 deletions.
diff --git a/inst/test-data/specific-redcapr/read-batch-plumbing/repeated.R b/inst/test-data/specific-redcapr/read-batch-plumbing/repeated.R
@@ -6,13 +6,16 @@ structure(list(record_id = c(1, 1, 1, 1, 1, 1, 2, 2, 2, 2, 2,
 1, 2), height = c(1, NA, NA, NA, NA, NA, 2, NA, NA, NA, NA, NA
 ), weight = c(11, NA, NA, NA, NA, NA, 22, NA, NA, NA, NA, NA), 
     bmi = c(111, NA, NA, NA, NA, NA, 222, NA, NA, NA, NA, NA), 
-    demographics_complete = c(2, NA, NA, NA, NA, NA, 2, NA, NA, 
-    NA, NA, NA), sbp = c(NA, 1.1, 1.2, 1.3, NA, NA, NA, 2.1, 
-    2.2, 2.3, NA, NA), dbp = c(NA, 11.1, 11.2, 11.3, NA, NA, 
-    NA, 22.1, 22.2, 22.3, NA, NA), blood_pressure_complete = c(NA, 
-    2, 2, 2, NA, NA, NA, 2, 2, 2, NA, NA), lab = c(NA, NA, NA, 
-    NA, "aa1", "aa2", NA, NA, NA, NA, "bb1", "bb2"), conc = c(NA, 
+    intake_complete = c(2, NA, NA, NA, NA, NA, 2, NA, NA, NA, 
+    NA, NA), sbp = c(NA, 1.1, 1.2, 1.3, NA, NA, NA, 2.1, 2.2, 
+    2.3, NA, NA), dbp = c(NA, 11.1, 11.2, 11.3, NA, NA, NA, 22.1, 
+    22.2, 22.3, NA, NA), blood_pressure_complete = c(NA, 2, 2, 
+    2, NA, NA, NA, 2, 2, 2, NA, NA), lab = c(NA, NA, NA, NA, 
+    "aa1", "aa2", NA, NA, NA, NA, "bb1", "bb2"), conc = c(NA, 
     NA, NA, NA, "1.1 ppm", "1.2 ppm", NA, NA, NA, NA, "2.1 ppm", 
     "2.2 ppm"), laboratory_complete = c(NA, NA, NA, NA, 2, 2, 
-    NA, NA, NA, NA, 2, 2)), row.names = c(NA, -12L), class = c("spec_tbl_df", 
-"tbl_df", "tbl", "data.frame"))
+    NA, NA, NA, NA, 2, 2), image_profile = c(NA, NA, NA, NA, 
+    NA, NA, NA, NA, NA, NA, NA, NA), image_complete = c(NA, NA, 
+    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA)), row.names = c(NA, 
+-12L), class = c("spec_tbl_df", "tbl_df", "tbl", "data.frame"
+))
diff --git a/tests/testthat/test-read-batch-plumbing.R b/tests/testthat/test-read-batch-plumbing.R
@@ -65,7 +65,7 @@ test_that("repeated", {
   path_expected <- "test-data/specific-redcapr/read-batch-plumbing/repeated.R"
   # desired_forms <- c("visit_observed_behavior") # Doesn't include the initial "demographics" form.
   desired_forms <- c("blood_pressure", "laboratory") # Doesn't include the initial "demographics" form.
-  expected_outcome_message <- "\\d+ records and 13 columns were read from REDCap in \\d+(\\.\\d+\\W|\\W)seconds\\."
+  expected_outcome_message <- "\\d+ records and 15 columns were read from REDCap in \\d+(\\.\\d+\\W|\\W)seconds\\."
 
   returned_object <-
     redcap_read(