better collection_weeks message

Author: nmdefries

R/endpoints.R

@@ -201,13 +201,12 @@ pub_covid_hosp_facility <- function(
   # Confusingly, the endpoint expects `collection_weeks` to be in day format,
   # but correspond to epiweeks. Allow `collection_weeks` to be provided in
   # either day or week format.
-  coercion_msg <- glue::glue(
-    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"
+  coercion_msg <- c(
+      "`collection_weeks` is in week format but `pub_covid_hosp_facility`
+       expects day format; dates will be converted to day format but may not
+       correspond exactly to desired time range"
     )
-  )
+
   if (test_class(collection_weeks, "EpiRange") && nchar(collection_weeks$from) == 6) {
     cli::cli_warn(coercion_msg, class = "epidatr__epirange_week_coercion")
     collection_weeks <- reformat_epirange(collection_weeks, to_type = "day")