error if nchs requested not weekly

R/endpoints.R

@@ -1025,6 +1025,13 @@ pub_covidcast <- function(
   as_of <- parse_timeset_input(as_of)
   issues <- parse_timeset_input(issues)
 
+  if (source == "nchs-mortality" && time_type != "week") {
+    cli::cli_abort(
+      "{source} data is only available at the week level",
+      class = "epidatr__nchs_week_only"
+    )
+  }
+
   create_epidata_call(
     "covidcast/",
     list(

tests/testthat/test-endpoints.R

@@ -517,3 +517,14 @@ test_that("pub_covid_hosp_state_timeseries supports versioned queries", {
   expect_identical(epidata_call$params$as_of, 20220101)
   expect_identical(epidata_call$params$lag, NULL)
 })
+
+test_that("nchs-mortality call fails if time_type not week", {
+  expect_error(pub_covidcast(
+    source = "nchs-mortality",
+    signals = "signal",
+    time_type = "day",
+    geo_type = "state",
+    time_values = "*",
+    geo_values = "*"
+  ), class = "epidatr__nchs_week_only")
+})