Add repeating instruments to list

ref #539
OuhscBbmc · Oct 12, 2024 · be2d36c · be2d36c
1 parent b842910
commit be2d36c
Showing 1 changed file with 76 additions and 69 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
@@ -1,7 +1,7 @@
 structure(list(project_id = c(153L, 212L, 213L, 268L, 690L, 691L, 
-753L, 817L, 977L, 998L, 999L, 1396L, 1425L, 1490L, 2545L, 2545L, 
-2593L, 2597L, 2603L, 2626L, 2627L, 2629L, 2630L, 2631L, 2632L, 
-2634L, 3003L, 3074L, 3181L), project_title = c("REDCapR Target Simple Static -see https://github.com/OuhscBbmc/REDCapR", 
+753L, 817L, 977L, 998L, 999L, 1396L, 1400L, 1425L, 1490L, 2545L, 
+2545L, 2593L, 2597L, 2603L, 2626L, 2627L, 2629L, 2630L, 2631L, 
+2632L, 2634L, 3003L, 3074L, 3181L), project_title = c("REDCapR Target Simple Static -see https://github.com/OuhscBbmc/REDCapR", 
 "REDCapR Target Longitudinal Arm -see https://github.com/OuhscBbmc/REDCapR", 
 "REDCapR Target Simple -Write Data", "REDCapR Russian -see https://github.com/OuhscBbmc/REDCapR", 
 "REDCapR Target Empty Rows -see https://github.com/OuhscBbmc/REDCapR", 
@@ -10,8 +10,9 @@ structure(list(project_id = c(153L, 212L, 213L, 268L, 690L, 691L,
 "REDCapR Target Survey Static -see https://github.com/OuhscBbmc/REDCapR", 
 "REDCap Target Fake Clinical Trial", "REDCapR Target -nonumeric record_id", 
 "REDCapR Target DAG -see https://github.com/OuhscBbmc/REDCapR", 
-"REDCapR Problematic values", "REDCapR Problematic dictionary", 
-"REDCapR Target Simple -Write Metadata", "REDCapR Target DAG -Write Data -see https://github.com/OuhscBbmc/REDCapR", 
+"REDCapR Problematic values", "REDCapR Repeating Instruments --See https://github.com/OuhscBbmc/REDCapR", 
+"REDCapR Problematic dictionary", "REDCapR Target Simple -Write Metadata", 
+"REDCapR Target DAG -Write Data -see https://github.com/OuhscBbmc/REDCapR", 
 "REDCapR Target DAG -Write Data -see https://github.com/OuhscBbmc/REDCapR", 
 "REDCapR Target Super-wide 2 -see https://github.com/OuhscBbmc/REDCapR", 
 "REDCapR superwide 3", "REDCapR Repeating Instruments Sparse", 
@@ -22,72 +23,76 @@ structure(list(project_id = c(153L, 212L, 213L, 268L, 690L, 691L,
 "REDCapR Checkboxes 1", "REDCapR Vignette: Reading Repeating Measures"
 ), creation_time = structure(c(1385762300, 1409508475, 1409510046, 
 1424542707, 1503371677, 1503372285, 1512140287, 1520372784, 1535128221, 
-1536708074, 1536717011, 1570739027, 1573579416, 1579464868, 1632500924, 
-1632500924, 1635560455, 1635866052, 1636077368, 1637557792, 1637557976, 
-1637874534, 1637941852, 1637959298, 1637959358, 1638248591, 1660433618, 
-1662155863, 1665019453), tzone = "America/Chicago", class = c("POSIXct", 
+1536708074, 1536717011, 1570739027, 1571112561, 1573579416, 1579464868, 
+1632500924, 1632500924, 1635560455, 1635866052, 1636077368, 1637557792, 
+1637557976, 1637874534, 1637941852, 1637959298, 1637959358, 1638248591, 
+1660433618, 1662155863, 1665019453), tzone = "America/Chicago", class = c("POSIXct", 
 "POSIXt")), production_time = structure(c(NA_real_, NA_real_, 
 NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
 NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
 NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, 
-NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_), tzone = "America/Chicago", class = c("POSIXct", 
-"POSIXt")), in_production = c(FALSE, FALSE, FALSE, FALSE, FALSE, 
-FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
-FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
-FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), project_language = c("English", 
-"English", "English", "English", "English", "English", "English", 
-"English", "English", "English", "English", "English", "English", 
-"English", "English", "English", "English", "English", "English", 
-"English", "English", "English", "English", "English", "English", 
-"English", "English", "English", "English"), purpose = c(0L, 
-0L, 0L, 0L, 0L, 0L, 4L, 4L, 0L, 4L, 0L, 1L, 4L, 0L, 3L, 3L, 4L, 
-4L, 4L, 4L, 4L, 4L, 3L, 3L, 3L, 3L, 0L, 4L, 3L), purpose_other = c(NA, 
-NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, "Testing REDCapR API library (in R)", 
-NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
-NA), project_notes = c(NA, NA, "see https://github.com/OuhscBbmc/REDCapR", 
-NA, NA, NA, NA, NA, "Generated & contributed by Peter Higgins at University of Michigan School of Medicine", 
-"Helps test functions when the record name is not numeric", NA, 
-"Contains values that might create problems for the API recipient", 
-"Has variables or descriptions that might cause problems with the API", 
-"see https://github.com/OuhscBbmc/REDCapR", NA, NA, "Another very wide dataset.  Supports https://github.com/OuhscBbmc/REDCapR/issues/335", 
-"REDCapR  -- see https://github.com/OuhscBbmc/REDCapR/issues/335", 
-"Repeating instruments  See https://github.com/OuhscBbmc/REDCapR", 
-"REDCapR Test Suite: delete records from a single-arm project", 
-"REDCapR Test Suite: delete records from a multiple-arm project", 
-"Longitudinal project with only one arm", NA, NA, NA, "REDCapR using Validation Types", 
-"Created for \nhttps://github.com/OuhscBbmc/REDCapR/issues/386 & https://github.com/OuhscBbmc/REDCapR/pull/389", 
-"Variety of f checkboxes", "https://github.com/OuhscBbmc/REDCapR/blob/main/vignettes/longitudinal-and-repeating.Rmd"
-), 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, NA, NA, NA, 
-NA, NA, NA, "[height]; [weight]; [bmi]"), 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_, 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_), is_longitudinal = c(FALSE, 
-TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
-FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
-FALSE, TRUE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
-FALSE), has_repeating_instruments_or_events = c(FALSE, FALSE, 
-FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
-FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, 
-FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE), 
-    surveys_enabled = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
-    FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
-    FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, 
-    FALSE, FALSE, FALSE, FALSE, FALSE), scheduling_enabled = c(FALSE, 
+NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_
+), tzone = "America/Chicago", class = c("POSIXct", "POSIXt")), 
+    in_production = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
+    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
     FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
+    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), project_language = c("English", 
+    "English", "English", "English", "English", "English", "English", 
+    "English", "English", "English", "English", "English", "English", 
+    "English", "English", "English", "English", "English", "English", 
+    "English", "English", "English", "English", "English", "English", 
+    "English", "English", "English", "English", "English"), purpose = c(0L, 
+    0L, 0L, 0L, 0L, 0L, 4L, 4L, 0L, 4L, 0L, 1L, 4L, 4L, 0L, 3L, 
+    3L, 4L, 4L, 4L, 4L, 4L, 4L, 3L, 3L, 3L, 3L, 0L, 4L, 3L), 
+    purpose_other = c(NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, 
+    NA, "Testing REDCapR API library (in R)", NA, NA, NA, NA, 
+    NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA, NA), 
+    project_notes = c(NA, NA, "see https://github.com/OuhscBbmc/REDCapR", 
+    NA, NA, NA, NA, NA, "Generated & contributed by Peter Higgins at University of Michigan School of Medicine", 
+    "Helps test functions when the record name is not numeric", 
+    NA, "Contains values that might create problems for the API recipient", 
+    "Repeating instruments", "Has variables or descriptions that might cause problems with the API", 
+    "see https://github.com/OuhscBbmc/REDCapR", NA, NA, "Another very wide dataset.  Supports https://github.com/OuhscBbmc/REDCapR/issues/335", 
+    "REDCapR  -- see https://github.com/OuhscBbmc/REDCapR/issues/335", 
+    "Repeating instruments  See https://github.com/OuhscBbmc/REDCapR", 
+    "REDCapR Test Suite: delete records from a single-arm project", 
+    "REDCapR Test Suite: delete records from a multiple-arm project", 
+    "Longitudinal project with only one arm", NA, NA, NA, "REDCapR using Validation Types", 
+    "Created for \nhttps://github.com/OuhscBbmc/REDCapR/issues/386 & https://github.com/OuhscBbmc/REDCapR/pull/389", 
+    "Variety of f checkboxes", "https://github.com/OuhscBbmc/REDCapR/blob/main/vignettes/longitudinal-and-repeating.Rmd"
+    ), 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, NA, 
+    NA, NA, NA, NA, NA, NA, "[height]; [weight]; [bmi]"), 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_, 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_), is_longitudinal = c(FALSE, TRUE, FALSE, FALSE, 
     FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
+    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, 
+    TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), has_repeating_instruments_or_events = c(FALSE, 
     FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
-    FALSE), record_autonumbering_enabled = c(TRUE, FALSE, TRUE, 
-    FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, 
-    TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
-    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), randomization_enabled = c(FALSE, 
+    FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
+    TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
+    FALSE, TRUE), surveys_enabled = c(FALSE, FALSE, FALSE, FALSE, 
+    FALSE, FALSE, FALSE, TRUE, FALSE, FALSE, FALSE, FALSE, FALSE, 
+    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE, 
+    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), 
+    scheduling_enabled = c(FALSE, FALSE, FALSE, FALSE, FALSE, 
     FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
     FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
+    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), record_autonumbering_enabled = c(TRUE, 
+    FALSE, TRUE, FALSE, TRUE, TRUE, TRUE, TRUE, TRUE, FALSE, 
+    FALSE, TRUE, TRUE, TRUE, TRUE, FALSE, FALSE, TRUE, TRUE, 
+    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
+    TRUE), randomization_enabled = c(FALSE, FALSE, FALSE, FALSE, 
     FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
-    FALSE), ddp_enabled = c(FALSE, FALSE, FALSE, FALSE, FALSE, 
+    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
+    FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), 
+    ddp_enabled = c(FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
     FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
     FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, 
     FALSE, FALSE, FALSE, FALSE, FALSE, FALSE), project_irb_number = c(NA_character_, 
@@ -97,15 +102,16 @@ FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE),
     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_
-    ), project_grant_number = c(NA_character_, NA_character_, 
     NA_character_, NA_character_, NA_character_, NA_character_, 
+    NA_character_), project_grant_number = 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_), project_pi_firstname = c(NA_character_, 
+    NA_character_, NA_character_, NA_character_, NA_character_, 
+    NA_character_, NA_character_, NA_character_, NA_character_
+    ), project_pi_firstname = 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_, 
@@ -120,19 +126,20 @@ FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, FALSE, TRUE),
     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_), display_today_now_button = c(TRUE, 
+    NA_character_, NA_character_, NA_character_, NA_character_
+    ), display_today_now_button = c(TRUE, TRUE, TRUE, TRUE, TRUE, 
     TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
     TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, 
-    TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE, TRUE), missing_data_codes = c(NA_character_, 
+    TRUE, TRUE, TRUE, TRUE, TRUE), missing_data_codes = 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_
-    ), bypass_branching_erase_field_prompt = c("0", "0", "0", 
+    NA_character_, NA_character_, NA_character_, 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")), row.names = c(NA, -29L), class = c("tbl_df", 
+    "0", "0", "0", "0", "0")), row.names = c(NA, -30L), class = c("tbl_df", 
 "tbl", "data.frame"))