Skip to content

Commit bf6b3c6

Browse files
authored
Merge pull request #1439 from cmu-delphi/vax-barrier-abc-fix
Combine V15a/c logic properly for survey Wave 12
2 parents 2493852 + be08fb1 commit bf6b3c6

File tree

1 file changed

+16
-32
lines changed

1 file changed

+16
-32
lines changed

facebook/delphiFacebook/R/variables.R

Lines changed: 16 additions & 32 deletions
Original file line numberDiff line numberDiff line change
@@ -639,6 +639,12 @@ code_vaccines <- function(input_data, wave) {
639639
input_data$v_worried_vaccine_side_effects <- NA_real_
640640
}
641641

642+
643+
# Wave V15a V15b V15c
644+
# 11 Yes Yes No
645+
# 12 No Yes Yes
646+
#
647+
# V15c replaces V15a as of Wave 12
642648
if ( all(c("V15a", "V15b") %in% names(input_data)) ) {
643649
# introduced in Wave 11
644650
vaccine_barriers <- coalesce(input_data$V15a, input_data$V15b)
@@ -665,22 +671,10 @@ code_vaccines <- function(input_data, wave) {
665671
input_data$v_vaccine_barrier_time <- is_selected(vaccine_barriers, "10")
666672
input_data$v_vaccine_barrier_type <- is_selected(vaccine_barriers, "12")
667673
input_data$v_vaccine_barrier_none <- is_selected(vaccine_barriers, "11")
668-
} else {
669-
input_data$v_vaccine_barrier_eligible <- NA
670-
input_data$v_vaccine_barrier_no_appointments <- NA
671-
input_data$v_vaccine_barrier_appointment_time <- NA
672-
input_data$v_vaccine_barrier_technical_difficulties <- NA
673-
input_data$v_vaccine_barrier_document <- NA
674-
input_data$v_vaccine_barrier_technology_access <- NA
675-
input_data$v_vaccine_barrier_travel <- NA
676-
input_data$v_vaccine_barrier_language <- NA
677-
input_data$v_vaccine_barrier_childcare <- NA
678-
input_data$v_vaccine_barrier_time <- NA
679-
input_data$v_vaccine_barrier_type <- NA
680-
input_data$v_vaccine_barrier_none <- NA
681-
}
682-
683-
if ( all(c("V15c", "V15b") %in% names(input_data)) ) {
674+
675+
input_data$v_vaccine_barrier_appointment_location <- NA
676+
input_data$v_vaccine_barrier_other <- NA
677+
} else if ( all(c("V15c", "V15b") %in% names(input_data)) ) {
684678
# V15c introduced in Wave 12, replacing V15a with clarified wording.
685679
vaccine_barriers <- coalesce(input_data$V15c, input_data$V15b)
686680
vaccine_barriers <- ifelse(vaccine_barriers == "13", NA, vaccine_barriers)
@@ -713,6 +707,7 @@ code_vaccines <- function(input_data, wave) {
713707
input_data$v_vaccine_barrier_time <- NA
714708
input_data$v_vaccine_barrier_type <- NA
715709
input_data$v_vaccine_barrier_none <- NA
710+
716711
input_data$v_vaccine_barrier_appointment_location <- NA
717712
input_data$v_vaccine_barrier_other <- NA
718713
}
@@ -733,22 +728,10 @@ code_vaccines <- function(input_data, wave) {
733728
input_data$v_vaccine_barrier_time_has <- is_selected(vaccine_barriers, "10")
734729
input_data$v_vaccine_barrier_type_has <- is_selected(vaccine_barriers, "12")
735730
input_data$v_vaccine_barrier_none_has <- is_selected(vaccine_barriers, "11")
736-
} else {
737-
input_data$v_vaccine_barrier_eligible_has <- NA
738-
input_data$v_vaccine_barrier_no_appointments_has <- NA
739-
input_data$v_vaccine_barrier_appointment_time_has <- NA
740-
input_data$v_vaccine_barrier_technical_difficulties_has <- NA
741-
input_data$v_vaccine_barrier_document_has <- NA
742-
input_data$v_vaccine_barrier_technology_access_has <- NA
743-
input_data$v_vaccine_barrier_travel_has <- NA
744-
input_data$v_vaccine_barrier_language_has <- NA
745-
input_data$v_vaccine_barrier_childcare_has <- NA
746-
input_data$v_vaccine_barrier_time_has <- NA
747-
input_data$v_vaccine_barrier_type_has <- NA
748-
input_data$v_vaccine_barrier_none_has <- NA
749-
}
750-
751-
if ( "V15c" %in% names(input_data) ) {
731+
732+
input_data$v_vaccine_barrier_appointment_location_has <- NA
733+
input_data$v_vaccine_barrier_other_has <- NA
734+
} else if ( "V15c" %in% names(input_data) ) {
752735
# V15c introduced in Wave 12, replacing V15a with clarified wording.
753736
vaccine_barriers <- split_options(input_data$V15c)
754737

@@ -779,6 +762,7 @@ code_vaccines <- function(input_data, wave) {
779762
input_data$v_vaccine_barrier_time_has <- NA
780763
input_data$v_vaccine_barrier_type_has <- NA
781764
input_data$v_vaccine_barrier_none_has <- NA
765+
782766
input_data$v_vaccine_barrier_appointment_location_has <- NA
783767
input_data$v_vaccine_barrier_other_has <- NA
784768
}

0 commit comments

Comments
 (0)