@@ -149,27 +149,27 @@ test_that("basic_epidata_call", {
149149
150150test_that(" pub_covid_hosp_state_timeseries supports versioned queries" , {
151151 epidata_call <- pub_covid_hosp_state_timeseries(
152- " ut" , epirange(12340101 , 34560101 ),
153- issues = 20220101 ,
154- fetch_args = fetch_args_list(
155- fields = c(" state" ," geocoded_state" ," date" ," issue" ," previous_day_admission_influenza_confirmed" ," previous_day_admission_influenza_confirmed_coverage" ),
156- disable_date_parsing = TRUE ,
157- dry_run = TRUE
158- )
152+ " ut" , epirange(12340101 , 34560101 ),
153+ issues = 20220101 ,
154+ fetch_args = fetch_args_list(
155+ fields = c(" state" , " geocoded_state" , " date" , " issue" , " previous_day_admission_influenza_confirmed" , " previous_day_admission_influenza_confirmed_coverage" ),
156+ disable_date_parsing = TRUE ,
157+ dry_run = TRUE
158+ )
159159 )
160160 expect_identical(epidata_call $ params $ issues , 20220101 )
161161 expect_identical(epidata_call $ params $ as_of , NULL )
162162 # COVID hosp state timeseries server code doesn't support `lag`
163163 expect_identical(epidata_call $ params $ lag , NULL )
164164
165165 epidata_call <- pub_covid_hosp_state_timeseries(
166- " ut" , epirange(12340101 , 34560101 ),
167- as_of = 20220101 ,
168- fetch_args = fetch_args_list(
169- fields = c(" state" ," geocoded_state" ," date" ," issue" ," previous_day_admission_influenza_confirmed" ," previous_day_admission_influenza_confirmed_coverage" ),
170- disable_date_parsing = TRUE ,
171- dry_run = TRUE
172- )
166+ " ut" , epirange(12340101 , 34560101 ),
167+ as_of = 20220101 ,
168+ fetch_args = fetch_args_list(
169+ fields = c(" state" , " geocoded_state" , " date" , " issue" , " previous_day_admission_influenza_confirmed" , " previous_day_admission_influenza_confirmed_coverage" ),
170+ disable_date_parsing = TRUE ,
171+ dry_run = TRUE
172+ )
173173 )
174174 expect_identical(epidata_call $ params $ issues , NULL )
175175 expect_identical(epidata_call $ params $ as_of , 20220101 )
0 commit comments