two more test for new server

ref #542

inst/test-data/projects/survey/expected/default.R

@@ -7,11 +7,12 @@ NA), prescreening_survey_timestamp = structure(c(1728851970,
     NA), first_name = c(NA, NA), last_name = c(NA, NA), address = c(NA, 
     NA), telephone_1 = c(NA, NA), ethnicity = c(NA, NA), race = c(NA, 
     NA), sex = c(NA, NA), height = c(NA, NA), weight = c(NA, 
-    NA), participant_info_survey_complete = c(0, 0), participant_morale_questionnaire_timestamp = c(NA, 
-    NA), pmq1 = c(NA, NA), pmq2 = c(NA, NA), pmq3 = c(NA, NA), 
-    pmq4 = c(NA, NA), participant_morale_questionnaire_complete = c(0, 
-    0), complete_study = c(NA, NA), withdraw_date = c(NA, NA), 
-    withdraw_reason = c(NA, NA), date_visit_4 = c(NA, NA), discharge_date_4 = c(NA, 
-    NA), discharge_summary_4 = c(NA, NA), study_comments = c(NA, 
-    NA), completion_data_complete = c(0, 0)), row.names = c(NA, 
+    NA), participant_info_survey_complete = c(0, 0), participant_morale_questionnaire_timestamp = structure(c(1728855063, 
+    NA), class = c("POSIXct", "POSIXt"), tzone = "UTC"), pmq1 = c(NA, 
+    NA), pmq2 = c(NA, NA), pmq3 = c(NA, NA), pmq4 = c(NA, NA), 
+    participant_morale_questionnaire_complete = c(2, 0), complete_study = c(NA, 
+    NA), withdraw_date = c(NA, NA), withdraw_reason = c(NA, NA
+    ), date_visit_4 = c(NA, NA), discharge_date_4 = c(NA, NA), 
+    discharge_summary_4 = c(NA, NA), study_comments = c(NA, NA
+    ), completion_data_complete = c(0, 0)), row.names = c(NA, 
 -2L), class = c("spec_tbl_df", "tbl_df", "tbl", "data.frame"))

inst/test-data/specific-redcapr/report/default.R

@@ -1 +1,13 @@
-structure(list(), class = c("tbl_df", "tbl", "data.frame"), row.names = integer(0), names = character(0))
+structure(list(record_id = c(1, 2, 3, 4, 5), height = c(7, 6, 
+180, 165, 193.04), health_complete = c(1, 0, 2, 2, 0), address = c("14 Rose Cottage St.  Kenning UK, 323232", 
+"14 Rose Cottage Blvd.  Kenning UK 34243", "243 Hill St.  Guthrie OK 73402", 
+"342 Elm  Duncanville TX, 75116", "Hotel Suite  New Orleans LA, 70115"
+), ethnicity = c(1, 1, 0, 1, 2)), row.names = c(NA, -5L), spec = structure(list(
+    cols = list(record_id = structure(list(), class = c("collector_double", 
+    "collector")), height = structure(list(), class = c("collector_double", 
+    "collector")), health_complete = structure(list(), class = c("collector_double", 
+    "collector")), address = structure(list(), class = c("collector_character", 
+    "collector")), ethnicity = 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"))