restore incomplete state in survey project

ref #542

inst/test-data/projects/survey/README.md

@@ -1,9 +1,19 @@
 survey
 ===============
 
-Additional (manual) steps to establish the test project on a new server:
+Additional (manual) steps to establish the test project on a new server.
+I don't know how to preserve these states/values in the xml file.
 
-1.  The `prescreening_survey_timestamp` field needs to be set.
-    So for both records, click the "Open Survey" button
+1.  For records 1 & 2:
+    1. The `prescreening_survey_timestamp` field needs to be set and
+    1. For both records, click the "Open Survey" button
     (in the "Survey Options" dropdown)
     and submit.
+
+1.  For record 1 only:
+    1. Delete the entry for the "Participant Morale Questionnaire"
+    1. Start a new entry for the "Participant Morale Questionnaire"
+    1. Set it to "Incomplete"
+    1. In the survey options dropdown box, select "Open survey"
+    1. Click "Save & Return Later"
+    1. In the Record Status Dashboard, verify the "Participant Morale Questionnaire" status is orange

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

@@ -7,12 +7,11 @@ 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 = 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, 
+    NA), participant_info_survey_complete = c(0, 0), participant_morale_questionnaire_timestamp = c("[not completed]", 
+    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, 
 -2L), class = c("spec_tbl_df", "tbl_df", "tbl", "data.frame"))