remove likert/profile naming scheme

No longer needed. UMD QSFs have been modified so that question names are
unique per wave. To accomplish this, some items that had display logic
set to FALSE (not shown) were instead moved to the trash.

Author: nmdefries

facebook/qsf-tools/generate-codebook.R

@@ -41,19 +41,6 @@ process_qsf <- function(path_to_qsf,
   item_names <- displayed_questions %>% 
     map_chr(~ .x$Payload$DataExportTag) %>%
     patch_item_names(path_to_rename_map, wave)
-  
-  if (survey_version == "UMD") {
-    item_names[item_names == "D2_30" & qids == "QID294"] <- "D2_30_cheer"
-    item_names[item_names == "D2_30" & qids == "QID293"] <- "D2_30_calm"
-    item_names[item_names == "B13" & qids == "QID253"] <- "B13_likert"
-    item_names[item_names == "B13" & qids == "QID255"] <- "B13_profile"
-    item_names[item_names == "B14" & qids == "QID254"] <- "B14_likert"
-    item_names[item_names == "B14" & qids == "QID259"] <- "B14_profile"
-    item_names[item_names == "B12a" & qids == "QID250"] <- "B12a_likert"
-    item_names[item_names == "B12a" & qids == "QID258"] <- "B12a_profile"
-    item_names[item_names == "B12b" & qids == "QID251"] <- "B12b_likert"
-    item_names[item_names == "B12b" & qids == "QID257"] <- "B12b_profile"
-  }
 
   # get question text:
   questions <- displayed_questions %>% 

facebook/qsf-tools/qsf-differ.R

@@ -155,21 +155,7 @@ get_qsf_file <- function(path, survey_version,
 
 
     # Deduplicate some UMD items.
-    if (survey_version == "UMD") {
-      question$DataExportTag <- case_when(
-        question$DataExportTag == "D2_30" & question$QuestionID == "QID294" ~ "D2_30_cheer",
-        question$DataExportTag == "D2_30" & question$QuestionID == "QID293" ~ "D2_30_calm",
-        question$DataExportTag == "B13" & question$QuestionID == "QID253" ~ "B13_likert",
-        question$DataExportTag == "B13" & question$QuestionID == "QID255" ~ "B13_profile",
-        question$DataExportTag == "B14" & question$QuestionID == "QID254" ~ "B14_likert",
-        question$DataExportTag == "B14" & question$QuestionID == "QID259" ~ "B14_profile",
-        question$DataExportTag == "B12a" & question$QuestionID == "QID250" ~ "B12a_likert",
-        question$DataExportTag == "B12a" & question$QuestionID == "QID258" ~ "B12a_profile",
-        question$DataExportTag == "B12b" & question$QuestionID == "QID251" ~ "B12b_likert",
-        question$DataExportTag == "B12b" & question$QuestionID == "QID257" ~ "B12b_profile",
-        TRUE ~ question$DataExportTag
-      )
-    } else if (survey_version == "CMU") {
+    if (survey_version == "CMU") {
       if (wave == 10) {
         question$DataExportTag <- case_when(
           question$DataExportTag == "C6" ~ "C6a",

facebook/qsf-tools/static/UMD/item_shortquestion_map.csv

@@ -19,19 +19,12 @@ B11a,wanted test 24h
 B11b,wanted to test sympdays
 B11c,wanted test 14d
 B12,reason not tested 14d
-B12a_likert,reason not tested 14d
-B12a_profile,reason not tested 14d
+B12a,reason not tested 14d
 B12b,reason not tested 14d
-B12b_likert,reason not tested 14d
-B12b_profile,reason not tested 14d
 B12c,reason not tested 14d
 B12c_matrix,reason not tested 14d matrix
 B13,needed med services 30d
-B13_likert,needed med services 30d
-B13_profile,needed med services 30d
 B14,reason no med services 30d
-B14_likert,reason no med services 30d
-B14_profile,reason no med services 30d
 B15,reason tested 14d
 B1_matrix,symptoms
 B1b,unusual symptoms