Update all-test-projects.R

ref #552
OuhscBbmc · Nov 5, 2024 · 8e64afa · 8e64afa
1 parent 0be141f
commit 8e64afa
Showing 1 changed file with 6 additions and 20 deletions.
diff --git a/inst/test-data/specific-redcapr/project-info-read/all-test-projects.R b/inst/test-data/specific-redcapr/project-info-read/all-test-projects.R
@@ -45,18 +45,12 @@ structure(list(project_id = c(33L, 34L, 36L, 37L, 38L, 39L, 40L,
     NA_character_, NA_character_, NA_character_, NA_character_, 
     NA_character_, NA_character_, NA_character_, NA_character_, 
     NA_character_, NA_character_, NA_character_, NA_character_
-    ), project_notes = c(NA_character_, NA_character_, NA_character_, 
-    NA_character_, NA_character_, NA_character_, NA_character_, 
-    NA_character_, NA_character_, NA_character_, NA_character_, 
-    NA_character_, NA_character_, NA_character_, NA_character_, 
-    NA_character_, NA_character_, NA_character_, NA_character_, 
-    NA_character_, NA_character_, NA_character_, NA_character_, 
-    NA_character_, NA_character_, NA_character_, NA_character_, 
-    NA_character_, NA_character_, NA_character_, NA_character_
-    ), custom_record_label = c(NA, NA, NA, NA, NA, NA, NA, NA, 
+    ), project_notes = c(NA, NA, NA, NA, NA, NA, NA, NA, "Generated and contributed by Peter Higgins at University of Michigan School of Medicine", 
+    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
+    NA, NA, NA, NA, NA, NA, NA), custom_record_label = c(NA, 
     NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
-    NA, NA, NA, NA, NA, NA, "[height]; [weight]; [bmi]", NA), 
-    secondary_unique_field = c(NA_character_, NA_character_, 
+    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, "[height]; [weight]; [bmi]", 
+    NA), secondary_unique_field = c(NA_character_, NA_character_, 
     NA_character_, NA_character_, NA_character_, NA_character_, 
     NA_character_, NA_character_, NA_character_, NA_character_, 
     NA_character_, NA_character_, NA_character_, NA_character_, 
@@ -134,15 +128,7 @@ structure(list(project_id = c(33L, 34L, 36L, 37L, 38L, 39L, 40L,
     NA_character_, NA_character_, NA_character_, NA_character_, 
     NA_character_, NA_character_, NA_character_, NA_character_, 
     NA_character_, NA_character_, NA_character_, NA_character_, 
-    NA_character_, NA_character_), external_modules = c("redcap_entity", 
-    "redcap_entity", "redcap_entity", "redcap_entity", "redcap_entity", 
-    "redcap_entity", "redcap_entity", "redcap_entity", "redcap_entity", 
-    "redcap_entity", "redcap_entity", "redcap_entity", "redcap_entity", 
-    "redcap_entity", "redcap_entity", "redcap_entity", "redcap_entity", 
-    "redcap_entity", "redcap_entity", "redcap_entity", "redcap_entity", 
-    "redcap_entity", "redcap_entity", "redcap_entity", "redcap_entity", 
-    "redcap_entity", "redcap_entity", "redcap_entity", "redcap_entity", 
-    "redcap_entity", "redcap_entity"), bypass_branching_erase_field_prompt = c("0", 
+    NA_character_, NA_character_), bypass_branching_erase_field_prompt = c("0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", 
     "0", "0", "0", "0", "0", "0")), row.names = c(NA, -31L), class = c("tbl_df",