warn about week conversion; handle single week date

R/endpoints.R

@@ -175,7 +175,7 @@ pub_covid_hosp_facility_lookup <- function(
 #' @param fetch_args [`fetch_args`]. Additional arguments to pass to `fetch()`.
 #' @return [`tibble::tibble`]
 #'
-#' @importFrom checkmate test_class
+#' @importFrom checkmate test_class test_integerish test_character
 #'
 #' @seealso [`pub_covid_hosp_facility()`], [`epirange()`]
 #' @keywords endpoint
@@ -201,7 +201,28 @@ pub_covid_hosp_facility <- function(
   # but correspond to epiweeks. Allow `collection_weeks` to be provided in
   # either day or week format.
   if (test_class(collection_weeks, "EpiRange")) {
+    cli::cli_warn(
+      c(
+        "`collection_weeks` {collection_weeks} is in week format but
+        `pub_covid_hosp_facility` expects day format; dates will be automatically
+        converted to day format"
+      ),
+      class = "epidatr__epirange_week_coercion"
+    )
     collection_weeks <- convert_epirange_format(collection_weeks, to_type = "day")
+  # Single week date.
+  } else if (
+    (test_integerish(collection_weeks) || test_character(collection_weeks)) &&
+    nchar(collection_weeks) == 6) {
+    cli::cli_warn(
+      c(
+        "`collection_weeks` {collection_weeks} is in week format but
+        `pub_covid_hosp_facility` expects day format; dates will be automatically
+        converted to day format"
+      ),
+      class = "epidatr__single_week_coercion"
+    )
+    collection_weeks <- parse_api_week(collection_weeks)
   }
 
   create_epidata_call(