validate scalar forecast_date

dajmcdon · dajmcdon · commit 047caa685e8a · 2024-03-27T11:13:45.000-07:00
diff --git a/R/layer_add_forecast_date.R b/R/layer_add_forecast_date.R
@@ -79,6 +79,7 @@ layer_add_forecast_date <-
 
 layer_add_forecast_date_new <- function(forecast_date, id) {
   arg_is_chr_scalar(id)
+  arg_is_scalar(forecast_date, allow_null = TRUE)
   # can't validate forecast_date until we know the time_type
   layer("add_forecast_date", forecast_date = forecast_date, id = id)
 }

Original file line number	Diff line number	Diff line change
`@@ -79,6 +79,7 @@ layer_add_forecast_date <-`
`79`	`79`
`80`	`80`	`layer_add_forecast_date_new <- function(forecast_date, id) {`
`81`	`81`	`arg_is_chr_scalar(id)`
	`82`	`+ arg_is_scalar(forecast_date, allow_null = TRUE)`
`82`	`83`	`# can't validate forecast_date until we know the time_type`
`83`	`84`	`layer("add_forecast_date", forecast_date = forecast_date, id = id)`
`84`	`85`	`}`