From c7b57963b9a7a16736589dc32bdce72b3650b2e3 Mon Sep 17 00:00:00 2001 From: Will Beasley Date: Sun, 13 Oct 2024 22:13:39 -0500 Subject: [PATCH] two more test for new server ref #542 --- inst/test-data/projects/survey/expected/default.R | 15 ++++++++------- inst/test-data/specific-redcapr/report/default.R | 14 +++++++++++++- 2 files changed, 21 insertions(+), 8 deletions(-) diff --git a/inst/test-data/projects/survey/expected/default.R b/inst/test-data/projects/survey/expected/default.R index 97db76b0..f6e3fd1a 100644 --- a/inst/test-data/projects/survey/expected/default.R +++ b/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")) diff --git a/inst/test-data/specific-redcapr/report/default.R b/inst/test-data/specific-redcapr/report/default.R index 2a95a228..ffde7921 100644 --- a/inst/test-data/specific-redcapr/report/default.R +++ b/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"))