Merge pull request #930 from cmu-delphi/fb-package-V4a-wording

[fb-survey] Support new wording of V4a "local health" item followup

Author: krivard

facebook/delphiFacebook/R/variables.R

@@ -291,6 +291,9 @@ code_testing <- function(input_data) {
 #'
 #' @importFrom dplyr coalesce
 code_vaccines <- function(input_data) {
+  wave <- unique(input_data$wave)
+  assert(length(wave) == 1, "can only code one wave at a time")
+  
   if ("V1" %in% names(input_data)) {
     # coded as 1 = Yes, 2 = No, 3 = don't know. We assume that don't know = no,
     # because, well, you'd know.

facebook/delphiFacebook/tests/testthat/test-variables.R

@@ -149,6 +149,7 @@ test_that("household size correctly imputes zeros", {
 
 test_that("vaccine acceptance is correctly coded", {
   input_data <- data.frame(
+    wave = 1,
     V1 = c(2, 3, 2, NA, 1, NA),
     V3 = c(1, 2, 3, 4, NA, NA)
   )