@@ -86,7 +86,6 @@ test_that("mask items correctly coded", {
86
86
input_data $ c_mask_often_7d <- NA
87
87
input_data $ c_others_masked <- c(TRUE , NA , NA , FALSE , TRUE , FALSE )
88
88
input_data $ c_others_masked_public <- NA
89
- input_data $ c_others_distanced_public <- NA
90
89
input_data $ c_work_outside_5d <- NA
91
90
92
91
expect_equal(out , input_data )
@@ -106,7 +105,6 @@ test_that("mask items correctly coded", {
106
105
input_data $ c_mask_often_7d <- c(NA , TRUE , FALSE , NA , TRUE , FALSE )
107
106
input_data $ c_others_masked <- c(TRUE , NA , NA , FALSE , TRUE , FALSE )
108
107
input_data $ c_others_masked_public <- NA
109
- input_data $ c_others_distanced_public <- NA
110
108
input_data $ c_work_outside_5d <- NA
111
109
112
110
expect_equal(out , input_data )
@@ -127,7 +125,6 @@ test_that("mask items correctly coded", {
127
125
input_data $ c_mask_often_7d <- NA
128
126
input_data $ c_others_masked <- c(TRUE , NA , NA , FALSE , TRUE , FALSE )
129
127
input_data $ c_others_masked_public <- NA
130
- input_data $ c_others_distanced_public <- NA
131
128
input_data $ c_work_outside_5d <- NA
132
129
133
130
expect_equal(out , input_data )
@@ -136,7 +133,6 @@ test_that("mask items correctly coded", {
136
133
input_data <- data.frame (
137
134
C14 = c(NA , 1 , 3 , 6 , 2 , 4 ),
138
135
H2 = c(1 , NA , 6 , 3 , 2 , 5 ),
139
- H1 = c(1 , NA , 6 , 3 , 2 , 5 ),
140
136
C6a = 1
141
137
)
142
138
@@ -149,7 +145,6 @@ test_that("mask items correctly coded", {
149
145
input_data $ c_mask_often_7d <- NA
150
146
input_data $ c_others_masked <- NA
151
147
input_data $ c_others_masked_public <- c(FALSE , NA , NA , FALSE , FALSE , TRUE )
152
- input_data $ c_others_distanced_public <- c(FALSE , NA , NA , FALSE , FALSE , TRUE )
153
148
input_data $ c_work_outside_5d <- NA
154
149
155
150
expect_equal(out , input_data )
0 commit comments