hotfix from Dan

cmu-delphi · Jul 30, 2024 · a28ad82 · a28ad82
1 parent f805ec1
commit a28ad82
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/layer_add_target_date.R b/R/layer_add_target_date.R
@@ -113,7 +113,7 @@ slather.layer_add_target_date <- function(object, components, workflow, new_data
   if (!is.null(object$target_date)) {
     target_date <- object$target_date
     validate_date(target_date, expected_time_type,
-      call = expr(layer_add_target_date())
+      call = rlang::expr(layer_add_target_date())
     )
     target_date <- coerce_time_type(target_date, expected_time_type)
   } else if (

diff --git a/R/utils-latency.R b/R/utils-latency.R
@@ -121,11 +121,11 @@ get_latency <- function(new_data, forecast_date, column, sign_shift, epi_keys_ch
 #'   a potentially different max_time_value
 #' @keywords internal
 get_forecast_date_in_layer <- function(this_recipe, workflow_max_time_value, new_data) {
-  max_time_value <- max(
+  max_time_value <- as.Date(max(
     workflow_max_time_value,
     this_recipe$max_time_value,
     max(new_data$time_value)
-  )
+  ))
   if (this_recipe %>% recipes::detect_step("adjust_latency")) {
     # get the as_of in an `adjust_latency` step, regardless of where
     handpicked_forecast_date <- map(