test wildcard and day/week support

Author: nmdefries

R/endpoints.R

@@ -209,8 +209,10 @@ pub_covid_hosp_facility <- function(
     cli::cli_warn(coercion_msg, class = "epidatr__epirange_week_coercion")
     collection_weeks <- reformat_epirange(collection_weeks, to_type = "day")
     # Single week date.
-  } else if ((test_integerish(collection_weeks) || test_character(collection_weeks)) &&
-    nchar(collection_weeks) == 6) {
+  } else if (
+    (test_integerish(collection_weeks) || test_character(collection_weeks)) &&
+      nchar(collection_weeks) == 6
+  ) {
     cli::cli_warn(coercion_msg, class = "epidatr__single_week_coercion")
     collection_weeks <- parse_api_week(collection_weeks)
   }

tests/testthat/test-endpoints.R

@@ -141,12 +141,25 @@ test_that("basic_epidata_call", {
     time_values = epirange(201501, 202001),
     fetch_args = fetch_args_list(dry_run = TRUE)
   ) %>% request_url())
+  expect_no_error(pvt_twitter(
+    auth = "yourkey",
+    locations = "CA",
+    time_type = "day",
+    time_values = epirange(20150101, 20200101),
+    fetch_args = fetch_args_list(dry_run = TRUE)
+  ) %>% request_url())
   expect_no_error(pub_wiki(
     articles = "avian_influenza",
     time_type = "week",
     time_values = epirange(201501, 202001),
     fetch_args = fetch_args_list(dry_run = TRUE)
   ) %>% request_url())
+  expect_no_error(pub_wiki(
+    articles = "avian_influenza",
+    time_type = "day",
+    time_values = epirange(20150101, 20200101),
+    fetch_args = fetch_args_list(dry_run = TRUE)
+  ) %>% request_url())
 })
 
 test_that("endoints accept wildcard for date parameter", {
@@ -324,6 +337,44 @@ test_that("endoints accept wildcard for date parameter", {
   ))
   expect_identical(call$params$epiweeks$from, 100001)
   expect_identical(call$params$epiweeks$to, 300001)
+
+  expect_no_error(call <- pvt_twitter(
+    auth = "yourkey",
+    locations = "CA",
+    time_type = "week",
+    time_values = "*",
+    fetch_args = fetch_args_list(dry_run = TRUE)
+  ))
+  expect_identical(call$params$epiweeks$from, 100001)
+  expect_identical(call$params$epiweeks$to, 300001)
+
+  expect_no_error(call <- pvt_twitter(
+    auth = "yourkey",
+    locations = "CA",
+    time_type = "day",
+    time_values = "*",
+    fetch_args = fetch_args_list(dry_run = TRUE)
+  ))
+  expect_identical(call$params$dates$from, 10000101)
+  expect_identical(call$params$dates$to, 30000101)
+
+  expect_no_error(call <- pub_wiki(
+    articles = "avian_influenza",
+    time_type = "week",
+    time_values = "*",
+    fetch_args = fetch_args_list(dry_run = TRUE)
+  ))
+  expect_identical(call$params$epiweeks$from, 100001)
+  expect_identical(call$params$epiweeks$to, 300001)
+
+  expect_no_error(call <- pub_wiki(
+    articles = "avian_influenza",
+    time_type = "day",
+    time_values = "*",
+    fetch_args = fetch_args_list(dry_run = TRUE)
+  ))
+  expect_identical(call$params$dates$from, 10000101)
+  expect_identical(call$params$dates$to, 30000101)
 })
 
 test_that("endpoints fail when given args via dots", {