robustify display logic recoding

nmdefries · nmdefries · commit 637d5e7b4917 · 2022-06-06T11:51:08.000-04:00
diff --git a/facebook/qsf-tools/generate-codebook.R b/facebook/qsf-tools/generate-codebook.R
@@ -233,7 +233,7 @@ process_qsf <- function(path_to_qsf,
       curr_map <- recode_map[qids == qid][[1]]
       
       if ( !is.null(curr_map) ) {
-        option_code <- curr_map[names(curr_map) == option_code]
+        option_code <- ifelse(option_code %in% names(curr_map), curr_map[[which(names(curr_map) == option_code)]], option_code)
       }
       
       paste(c(qid, selectable_text, option_code), collapse="")

Original file line number	Diff line number	Diff line change
`@@ -233,7 +233,7 @@ process_qsf <- function(path_to_qsf,`
`233`	`233`	`curr_map <- recode_map[qids == qid][[1]]`
`234`	`234`
`235`	`235`	`if ( !is.null(curr_map) ) {`
`236`		`- option_code <- curr_map[names(curr_map) == option_code]`
	`236`	`+ option_code <- ifelse(option_code %in% names(curr_map), curr_map[[which(names(curr_map) == option_code)]], option_code)`
`237`	`237`	`}`
`238`	`238`
`239`	`239`	`paste(c(qid, selectable_text, option_code), collapse="")`