various requests and rebasing on dev

Author: dsweber2

R/arx_classifier.R

@@ -190,10 +190,10 @@ arx_class_epi_workflow <- function(
         )
     }
   }
+  # regex that will match any amount of adjustment for the ahead
   ahead_out_name <- glue::glue("ahead_[0-9]*_{pre_out_name}")
   method_adjust_latency <- args_list$adjust_latency
   if (method_adjust_latency != "none") {
-    # only extend_ahead is supported atm
     r <- r %>% step_adjust_latency(!!pre_out_name,
       fixed_forecast_date = forecast_date,
       method = method_adjust_latency
@@ -328,9 +328,9 @@ arx_class_args_list <- function(
   if (!is.null(forecast_date) && !is.null(target_date)) {
     if (forecast_date + ahead != target_date) {
       cli_warn(
-        c(
-          "`forecast_date` + `ahead` must equal `target_date`.",
-          i = "{.val {forecast_date}} + {.val {ahead}} != {.val {target_date}}."
+        paste0(
+          "`forecast_date`  {.val {forecast_date}} +",
+          " `ahead` {.val {ahead}} must equal `target_date` {.val {target_date}}."
         ),
         class = "epipredict__arx_args__inconsistent_target_ahead_forecaste_date"
       )

R/arx_forecaster.R

@@ -61,7 +61,7 @@ arx_forecaster <- function(
 
 
   preds <- forecast(wf, forecast_date = forecast_date) %>%
-    tibble::as_tibble() %>%
+    as_tibble() %>%
     select(-time_value)
 
   structure(
@@ -140,11 +140,7 @@ arx_fcast_epi_workflow <- function(
   forecast_date <- args_list$forecast_date %||% forecast_date_default
   target_date <- args_list$target_date %||% (forecast_date + args_list$ahead)
   if (forecast_date + args_list$ahead != target_date) {
-    cli_abort(
-      c(
-        "`forecast_date` + `ahead` must equal `target_date`.",
-        i = "{.val {forecast_date}} + {.val {ahead}} != {.val {target_date}}."
-      ),
+    cli_abort("`forecast_date` {.val {forecast_date}} + `ahead` {.val {ahead}} must equal `target_date` {.val {target_date}}.",
       class = "epipredict__arx_forecaster__inconsistent_target_ahead_forecaste_date"
     )
   }
@@ -314,11 +310,7 @@ arx_args_list <- function(
 
   if (!is.null(forecast_date) && !is.null(target_date)) {
     if (forecast_date + ahead != target_date) {
-      cli_abort(
-        c(
-          "`forecast_date` + `ahead` must equal `target_date`.",
-          i = "{.val {forecast_date}} + {.val {ahead}} != {.val {target_date}}."
-        ),
+      cli_abort("`forecast_date` {.val {forecast_date}} + `ahead` {.val {ahead}} must equal `target_date` {.val {target_date}}.",
         class = "epipredict__arx_args__inconsistent_target_ahead_forecaste_date"
       )
     }

R/epi_recipe.R

@@ -94,7 +94,7 @@ epi_recipe.epi_df <-
     ## Check and add roles when available
     if (!is.null(roles)) {
       if (length(roles) != length(vars)) {
-        cli_abort(paste(
+        cli_abort(paste0(
           "The number of roles should be the same as the number of ",
           "variables."
         ))