Merge pull request #1559 from cmu-delphi/ndefries/if-false-displaylogic

[CTIS utils] Correctly handle static display logic in QSFs

Author: krivard

facebook/qsf-tools/generate-codebook.R

@@ -192,6 +192,23 @@ process_qsf <- function(path_to_qsf,
     map(~ gsubfn("(QID[0-9]+)", function(qid) {items[qids == qid]}, .x)) %>% 
     # Collapse logic into a single string.
     map(~ paste(.x, collapse=" "))
+  
+  # Handle questions that use a fixed condition ("If False", "If True")
+  ii_boolean_displaylogic <- (displayed_questions %>% 
+                                map(~ .x$Payload$DisplayLogic) %>% 
+                                map(~ .x$`0`) %>% 
+                                map(~ map(.x, "LogicType") %>% unlist()) == "BooleanValue") %>% 
+    which()
+  
+  display_logic[ii_boolean_displaylogic] <- displayed_questions[ii_boolean_displaylogic] %>% 
+    map(~ .x$Payload$DisplayLogic) %>% 
+    map(~ .x$`0`) %>% 
+    map(~ paste(
+      map(.x, "Value")
+    )) %>%
+    map(~ gsub(" ?NULL ?", "", .x)) %>% 
+    # Collapse logic into a single string.
+    map(~ paste(.x, collapse=""))
 
   logic_type <- displayed_questions %>% 
     map(~ .x$Payload$DisplayLogic) %>%