@@ -639,6 +639,12 @@ code_vaccines <- function(input_data, wave) {
639
639
input_data $ v_worried_vaccine_side_effects <- NA_real_
640
640
}
641
641
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
642
648
if ( all(c(" V15a" , " V15b" ) %in% names(input_data )) ) {
643
649
# introduced in Wave 11
644
650
vaccine_barriers <- coalesce(input_data $ V15a , input_data $ V15b )
@@ -665,22 +671,10 @@ code_vaccines <- function(input_data, wave) {
665
671
input_data $ v_vaccine_barrier_time <- is_selected(vaccine_barriers , " 10" )
666
672
input_data $ v_vaccine_barrier_type <- is_selected(vaccine_barriers , " 12" )
667
673
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 )) ) {
684
678
# V15c introduced in Wave 12, replacing V15a with clarified wording.
685
679
vaccine_barriers <- coalesce(input_data $ V15c , input_data $ V15b )
686
680
vaccine_barriers <- ifelse(vaccine_barriers == " 13" , NA , vaccine_barriers )
@@ -713,6 +707,7 @@ code_vaccines <- function(input_data, wave) {
713
707
input_data $ v_vaccine_barrier_time <- NA
714
708
input_data $ v_vaccine_barrier_type <- NA
715
709
input_data $ v_vaccine_barrier_none <- NA
710
+
716
711
input_data $ v_vaccine_barrier_appointment_location <- NA
717
712
input_data $ v_vaccine_barrier_other <- NA
718
713
}
@@ -733,22 +728,10 @@ code_vaccines <- function(input_data, wave) {
733
728
input_data $ v_vaccine_barrier_time_has <- is_selected(vaccine_barriers , " 10" )
734
729
input_data $ v_vaccine_barrier_type_has <- is_selected(vaccine_barriers , " 12" )
735
730
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 ) ) {
752
735
# V15c introduced in Wave 12, replacing V15a with clarified wording.
753
736
vaccine_barriers <- split_options(input_data $ V15c )
754
737
@@ -779,6 +762,7 @@ code_vaccines <- function(input_data, wave) {
779
762
input_data $ v_vaccine_barrier_time_has <- NA
780
763
input_data $ v_vaccine_barrier_type_has <- NA
781
764
input_data $ v_vaccine_barrier_none_has <- NA
765
+
782
766
input_data $ v_vaccine_barrier_appointment_location_has <- NA
783
767
input_data $ v_vaccine_barrier_other_has <- NA
784
768
}
0 commit comments