rec formatting things, dropping purrr

Author: dsweber2

DESCRIPTION

@@ -39,7 +39,6 @@ Imports:
     quantreg,
     recipes (>= 1.0.4),
     rlang (>= 1.0.0),
-    purrr,
     smoothqr,
     stats,
     tibble,

NAMESPACE

@@ -239,7 +239,6 @@ importFrom(ggplot2,autoplot)
 importFrom(hardhat,refresh_blueprint)
 importFrom(hardhat,run_mold)
 importFrom(magrittr,"%>%")
-importFrom(purrr,map_lgl)
 importFrom(quantreg,rq)
 importFrom(recipes,bake)
 importFrom(recipes,prep)

R/arx_classifier.R

@@ -119,10 +119,10 @@ arx_class_epi_workflow <- function(
     args_list = arx_class_args_list()) {
   validate_forecaster_inputs(epi_data, outcome, predictors)
   if (!inherits(args_list, c("arx_class", "alist"))) {
-    cli::cli_abort("args_list was not created using `arx_class_args_list().")
+    cli::cli_abort("`args_list` was not created using `arx_class_args_list().`")
   }
   if (!(is.null(trainer) || is_classification(trainer))) {
-    cli::cli_abort("`trainer` must be a `{parsnip}` model of mode 'classification'.")
+    cli::cli_abort("`trainer` must be a `{.pkg parsnip}` model of mode 'classification'.")
   }
   lags <- arx_lags_validator(predictors, args_list$lags)
 

R/epi_workflow.R

@@ -189,8 +189,8 @@ augment.epi_workflow <- function(x, new_data, ...) {
   } else {
     cli::cli_abort(
       c(
-        "Cannot determine how to join new_data with the predictions.",
-        "Try converting new_data to an epi_df with `as_epi_df(new_data)`."
+        "Cannot determine how to join `new_data` with the `predictions`.",
+        "Try converting `new_data` to an {.cls epi_df} with `as_epi_df(new_data)`."
       )
     )
   }

R/step_adjust_latency.R

@@ -91,7 +91,7 @@ step_adjust_latency <-
            id = recipes::rand_id("epi_lag")) {
     arg_is_chr_scalar(id, method)
     if (!is_epi_recipe(recipe)) {
-      cli::cli_abort("This recipe step can only operate on an `epi_recipe`.")
+      cli::cli_abort("This recipe step can only operate on an {.cls epi_recipe}.")
     }
     if (!is.null(columns)) {
       cli::cli_abort(c("The `columns` argument must be `NULL`.",
@@ -119,7 +119,11 @@ step_adjust_latency <-
       recipe$steps,
       function(recipe_step) inherits(recipe_step, rel_step_type)
     ))) {
-      cli:cli_abort("there is no `{rel_step_type}` defined before this. for the method `extend_{shift_name}` of `step_adjust_latency`, at least one {shift_name} must be previously defined.")
+      cli::cli_abort(glue::glue(
+        "There is no `{rel_step_type}` defined before this.",
+        " For the method `extend_{shift_name}` of `step_adjust_latency`,",
+        " at least one {shift_name} must be previously defined."
+      ))
     }
 
     recipes::add_step(
@@ -164,11 +168,15 @@ step_adjust_latency_new <-
 #' @export
 prep.step_adjust_latency <- function(x, training, info = NULL, ...) {
   if ((x$method == "extend_ahead") && (!("outcome" %in% info$role))) {
-    cli::cli_abort('If `method` is `"extend_ahead"`, then a step ",
-          "must have already added an outcome .')
+    cli::cli_abort(glue::glue(
+      "If `method` is `\"extend_ahead\"`, then a step ",
+      "must have already added an outcome."
+    ))
   } else if (!("predictor" %in% info$role)) {
-    cli::cli_abort('If `method` is `"extend_lags"` or `"locf"`, then a step ",
-"must have already added a predictor.')
+    cli::cli_abort(glue::glue(
+      "If `method` is `\"extend_lags\"` or `\"locf\"`, then a step ",
+      "must have already added a predictor."
+    ))
   }
 
   # get the columns used, even if it's all of them

R/step_growth_rate.R

@@ -56,13 +56,13 @@ step_growth_rate <-
            id = rand_id("growth_rate"),
            additional_gr_args_list = list()) {
     if (!is_epi_recipe(recipe)) {
-      cli::cli_abort("This recipe step can only operate on an `epi_recipe`.")
+      cli::cli_abort("This recipe step can only operate on an {.cls epi_recipe}.")
     }
     method <- match.arg(method)
     arg_is_pos_int(horizon)
     arg_is_scalar(horizon)
     if (!is.null(replace_Inf)) {
-      if (length(replace_Inf) != 1L) cli::cli_abort("replace_Inf must be a scalar.")
+      if (length(replace_Inf) != 1L) cli::cli_abort("`replace_Inf` must be a scalar.")
       if (!is.na(replace_Inf)) arg_is_numeric(replace_Inf)
     }
     arg_is_chr(role)

R/step_lag_difference.R

@@ -33,7 +33,7 @@ step_lag_difference <-
            skip = FALSE,
            id = rand_id("lag_diff")) {
     if (!is_epi_recipe(recipe)) {
-      cli::cli_abort("This recipe step can only operate on an `epi_recipe`.")
+      cli::cli_abort("This recipe step can only operate on an {.cls epi_recipe}.")
     }
     arg_is_pos_int(horizon)
     arg_is_chr(role)

R/utils-latency.R

@@ -68,7 +68,7 @@ construct_shift_tibble <- function(terms_used, recipe, rel_step_type, shift_name
 #' been changed
 #' @param shift_cols a list of columns to operate on, as created by `construct_shift_tibble`
 #' @param new_data the data transformed so far
-#' @param as_of
+#' @param as_of the forecast date
 #' @param latency `NULL`, int, or vector, as described in `step_eip_latency`
 #' @param sign_shift -1 if ahead, 1 if lag
 #' @return a tibble with columns `column` (relevant shifted names), `shift` (the
@@ -78,7 +78,6 @@ construct_shift_tibble <- function(terms_used, recipe, rel_step_type, shift_name
 #'   effective_shift)
 #' @keywords internal
 #' @importFrom dplyr rowwise %>%
-#' @importFrom purrr map_lgl
 get_latent_column_tibble <- function(
     shift_cols, new_data, as_of, latency,
     sign_shift, info, call = caller_env()) {