starting two expected datasets for DAGs

ref #353

inst/WORDLIST

@@ -55,6 +55,7 @@ cURL
 codebook
 codecov
 cran
+cran's
 csv
 datetime
 dropdown

inst/test-data/specific-redcapr/read-dag/assigned-to-dag-a.R

@@ -0,0 +1,11 @@
+structure(list(record_id = c("331-1", "331-2"), first_name = c("aa", 
+"bb"), last_name = c("AA", "BB"), address = c(NA_character_, 
+NA_character_), telephone = c(NA_character_, NA_character_), 
+    email = c(NA_character_, NA_character_), dob = c(NA_character_, 
+    NA_character_), age = c(NA_character_, NA_character_), ethnicity = c(NA_character_, 
+    NA_character_), race = c(NA_character_, NA_character_), sex = c(NA_character_, 
+    NA_character_), height = c(NA_character_, NA_character_), 
+    weight = c(NA_character_, NA_character_), bmi = c(NA_character_, 
+    NA_character_), comments = c(NA_character_, NA_character_
+    ), demographics_complete = c("0", "0")), row.names = c(NA, 
+-2L), class = "data.frame")

inst/test-data/specific-redcapr/read-dag/no-assignment.R

@@ -0,0 +1,11 @@
+structure(list(record_id = c("331-1", "331-2"), first_name = c("aa", 
+"bb"), last_name = c("AA", "BB"), address = c(NA_character_, 
+NA_character_), telephone = c(NA_character_, NA_character_), 
+    email = c(NA_character_, NA_character_), dob = c(NA_character_, 
+    NA_character_), age = c(NA_character_, NA_character_), ethnicity = c(NA_character_, 
+    NA_character_), race = c(NA_character_, NA_character_), sex = c(NA_character_, 
+    NA_character_), height = c(NA_character_, NA_character_), 
+    weight = c(NA_character_, NA_character_), bmi = c(NA_character_, 
+    NA_character_), comments = c(NA_character_, NA_character_
+    ), demographics_complete = c("0", "0")), row.names = c(NA, 
+-2L), class = "data.frame")

tests/testthat/test-read-dag.R

@@ -11,8 +11,8 @@ test_that("smoke test", {
 })
 test_that("default", {
   testthat::skip_on_cran()
-  path_expected <- "test-data/specific-redcapr/read-clinical-trial/default.R"
-  expected_outcome_message <- "500 records and 13 columns were read from REDCap in \\d+(\\.\\d+\\W|\\W)seconds\\."
+  path_expected <- "test-data/specific-redcapr/read-dag/assigned-to-dag-a.R"
+  expected_outcome_message <- "2 records and 16 columns were read from REDCap in \\d+(\\.\\d+\\W|\\W)seconds\\."
 
   expect_message(
     regexp           = expected_outcome_message,