Mark more column types

Author: capnrefsmmat

docs/symptom-survey/survey-utils.R

@@ -62,10 +62,27 @@ get_survey_df <- function(directory, pattern = "*.csv.gz$") {
                  C13 = col_character(),
                  C13a = col_character(),
                  D1_4_TEXT = col_character(),
+                 E3 = col_character(),
                  fips = col_character(),
                  UserLanguage = col_character(),
                  StartDatetime = col_character(),
                  EndDatetime = col_character(),
+                 Q65 = col_integer(),
+                 Q66 = col_integer(),
+                 Q67 = col_integer(),
+                 Q68 = col_integer(),
+                 Q69 = col_integer(),
+                 Q70 = col_integer(),
+                 Q71 = col_integer(),
+                 Q72 = col_integer(),
+                 Q73 = col_integer(),
+                 Q74 = col_integer(),
+                 Q75 = col_integer(),
+                 Q76 = col_integer(),
+                 Q77 = col_integer(),
+                 Q78 = col_integer(),
+                 Q79 = col_integer(),
+                 Q80 = col_integer(),
                  .default = col_number()))
     }
   )