combine in-page and normal display logic

Author: nmdefries

facebook/qsf-tools/generate-codebook.R

@@ -199,8 +199,21 @@ process_qsf <- function(path_to_qsf,
 
   # format display logic
   # Not all questions have display logic; if NULL, shown to all respondents within section.
+  # Also check "InPageDisplayLogic". If not null, combine with normal "DisplayLogic".
+  inpage_ii <- displayed_questions %>% 
+    map(~ .x$Payload$InPageDisplayLogic) %>% map_lgl(~ !is.null(.x)) %>% which()
+  inpage_logic <- displayed_questions %>% 
+    map(~ .x$Payload$InPageDisplayLogic)
+  
   display_logic <- displayed_questions %>% 
-    map(~ .x$Payload$DisplayLogic) %>% 
+    map(~ .x$Payload$DisplayLogic)
+  if (display_logic[inpage_ii] %>% map_lgl(~ !is.null(.x)) %>% any()) {
+    stop("At least one question has both 'DisplayLogic' and 'InPageDisplayLogic'.",
+         " 'DisplayLogic' would be overwritten.")
+  }
+  display_logic[inpage_ii] <- inpage_logic[inpage_ii]
+  
+  display_logic <- display_logic %>% 
     map(~ .x$`0`) %>% 
     map(~ paste(
       map(.x, "Conjuction"),

facebook/qsf-tools/qsf-differ.R

@@ -59,7 +59,8 @@ diff_qsf_files <- function(old_qsf_path, new_qsf_path, output_dir,
 get_qsf_file <- function(path, survey_version,
                          keep_items = c("QuestionID", "DataExportTag",
                                         "QuestionText", "QuestionType",
-                                        "Choices", "Answers", "DisplayLogic")
+                                        "Choices", "Answers", "DisplayLogic",
+                                        "InPageDisplayLogic")
 ) {
   wave <- get_wave(path)
   # Read file as json.
@@ -147,6 +148,10 @@ get_qsf_file <- function(path, survey_version,
       display_logic <- unlist(question$DisplayLogic)
       question$DisplayLogic <- sort(display_logic[!str_detect(names(display_logic), "Description")])
     }
+    if ("InPageDisplayLogic" %in% names(question)) {
+      display_logic <- unlist(question$InPageDisplayLogic)
+      question$DisplayLogic <- sort(display_logic[!str_detect(names(display_logic), "Description")])
+    }
 
 
     # Deduplicate some UMD items.