new data_access_group_id field

ref #459
OuhscBbmc · Dec 15, 2022 · 691a918 · 691a918
1 parent 8e1b3a9
commit 691a918
Showing 1 changed file with 10 additions and 5 deletions.
diff --git a/tests/testthat/test-dag-read.R b/tests/testthat/test-dag-read.R
@@ -19,15 +19,17 @@ test_that("smoke", {
 test_that("dag-default", {
   testthat::skip_on_cran()
   expected_data <-
-    structure(
-      list(data_access_group_name = c("dag_1", "dag_2"),
-      unique_group_name = c("dag_1", "dag_2")), row.names = c(NA,
-      -2L), spec = structure(list(cols = list(data_access_group_name = structure(list(), class = c("collector_character",
+    structure(list(data_access_group_name = c("dag_1", "dag_2"),
+      unique_group_name = c("dag_1", "dag_2"), data_access_group_id = c(36,
+      37)), row.names = c(NA, -2L), spec = structure(list(cols = list(
+      data_access_group_name = structure(list(), class = c("collector_character",
       "collector")), unique_group_name = structure(list(), class = c("collector_character",
+      "collector")), data_access_group_id = 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")
     )
+  # dput(actual$data)
   actual <-
     redcap_dag_read(
       redcap_uri  = credential_1$redcap_uri,
@@ -45,13 +47,16 @@ test_that("dag-default", {
   testthat::skip_on_cran()
   expected_data <-
     structure(
-      list(data_access_group_name = character(0), unique_group_name = character(0)), row.names = integer(0), spec = structure(list(
+      list(data_access_group_name = character(0), unique_group_name = character(0),
+      data_access_group_id = character(0)), row.names = integer(0), spec = structure(list(
       cols = list(data_access_group_name = structure(list(), class = c("collector_character",
       "collector")), unique_group_name = structure(list(), class = c("collector_character",
+      "collector")), data_access_group_id = structure(list(), class = c("collector_character",
       "collector"))), default = structure(list(), class = c("collector_guess",
       "collector")), delim = ","), class = "col_spec"), class = c("spec_tbl_df",
       "tbl_df", "tbl", "data.frame")
     )
+  # dput(actual$data)
 
   actual <-
     redcap_dag_read(