glue -> glue::glue

Author: dsweber2

R/step_adjust_latency.R

@@ -165,7 +165,6 @@ step_adjust_latency_new <-
 # lags introduces max(lags) NA's after the max_time_value.
 # TODO all of the shifting happens before NA removal, which saves all the data I might possibly want; I should probably add a bit that makes sure this operation is happening before NA removal so data doesn't get dropped
 #' @export
-#' @importFrom glue glue
 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 ",
@@ -207,7 +206,7 @@ prep.step_adjust_latency <- function(x, training, info = NULL, ...) {
         ((time_type == "year") && (latency >= 1))
     ) {
       cli::cli_warn(c(
-        "!" = glue(
+        "!" = glue::glue(
           "The shift has been adjusted by {latency}, ",
           "which is questionable for it's `time_type` of ",
           "{time_type}"

R/utils-latency.R

@@ -76,11 +76,10 @@ construct_shift_tibble <- function(terms_used, recipe, rel_step_type, shift_name
 #' @keywords internal
 #' @importFrom dplyr rowwise %>%
 #' @importFrom purrr map_lgl
-#' @importFrom glue glue
 get_latent_column_tibble <- function(
     shift_cols, new_data, as_of, latency,
     sign_shift, info, call = caller_env()) {
-  shift_cols <- shift_cols %>% mutate(original_name = glue("{prefix}{shift}_{terms}"))
+  shift_cols <- shift_cols %>% mutate(original_name = glue::glue("{prefix}{shift}_{terms}"))
   if (is.null(latency)) {
     shift_cols <- shift_cols %>%
       rowwise() %>%
@@ -105,7 +104,7 @@ get_latent_column_tibble <- function(
       effective_shift = shift + abs(latency)
     ) %>%
     mutate(
-      new_name = glue("{prefix}{effective_shift}_{terms}")
+      new_name = glue::glue("{prefix}{effective_shift}_{terms}")
     )
   info <- info %>% select(variable, type, role)
   shift_cols <- left_join(shift_cols, info, by = join_by(original_name == variable))