convert to cli_warn()

Author: EmilHvitfeldt

R/arguments.R

@@ -8,11 +8,8 @@ check_eng_args <- function(args, obj, core_args) {
   if (length(common_args) > 0) {
     args <- args[!(names(args) %in% common_args)]
     common_args <- paste0(common_args, collapse = ", ")
-    rlang::warn(
-      glue::glue(
-        "The following arguments cannot be manually modified ",
-        "and were removed: {common_args}."
-      )
+    cli::cli_warn(
+      "The arguments {common_args} cannot be manually modified and were removed."
     )
   }
   args

R/fit.R

@@ -103,13 +103,14 @@ fit.cluster_spec <- function(
     eng_vals <- possible_engines(object)
     object$engine <- eng_vals[1]
     if (control$verbosity > 0) {
-      rlang::warn(glue::glue("Engine set to `{object$engine}`."))
+      cli::cli_warn("Engine set to {.code {object$engine}}.")
     }
   }
 
   if (all(c("x", "y") %in% names(dots))) {
     cli::cli_abort(
-      "The {.fn fit.cluster_spec} function is for the formula methods. Use {.fn fit_xy} instead."
+      "The {.fn fit.cluster_spec} function is for the formula methods. 
+      Use {.fn fit_xy} instead."
     )
   }
   cl <- match.call(expand.dots = TRUE)

R/predict.R

@@ -96,7 +96,9 @@ predict.cluster_fit <- function(
   ...
 ) {
   if (inherits(object$fit, "try-error")) {
-    rlang::warn("Model fit failed; cannot make predictions.")
+    cli::cli_warn(
+      "Model fit failed; cannot make predictions."
+    )
     return(NULL)
   }
 

R/predict_cluster.R

@@ -23,7 +23,7 @@ predict_cluster.cluster_fit <- function(object, new_data, ...) {
   check_spec_pred_type(object, "cluster")
 
   if (inherits(object$fit, "try-error")) {
-    rlang::warn("Model fit failed; cannot make predictions.")
+    cli::cli_warn("Model fit failed; cannot make predictions.")
     return(NULL)
   }
 

R/predict_raw.R

@@ -16,7 +16,7 @@ predict_raw.cluster_fit <- function(object, new_data, opts = list(), ...) {
   check_spec_pred_type(object, "raw")
 
   if (inherits(object$fit, "try-error")) {
-    rlang::warn("Cluster fit failed; cannot make predictions.")
+    cli::cli_warn("Cluster fit failed; cannot make predictions.")
     return(NULL)
   }
 

R/tune_cluster.R

@@ -182,7 +182,12 @@ tune_cluster_workflow <- function(
   )
 
   if (is_cataclysmic(resamples)) {
-    rlang::warn("All models failed. See the `.notes` column.")
+    cli::cli_warn(
+      c(
+        "All models failed.",
+        "i" = "See the {.code .notes} column."
+      )
+    )
   }
 
   workflow <- set_workflow(workflow, control)
@@ -999,12 +1004,13 @@ check_grid <- function(grid, workflow, pset = NULL) {
   }
 
   if (nrow(pset) == 0L) {
-    msg <- paste0(
-      "No tuning parameters have been detected, ",
-      "performance will be evaluated using the resamples with no tuning. ",
-      "Did you want to [tune()] parameters?"
+    cli::cli_warn(
+      c(
+        "No tuning parameters have been detected, performance will be evaluated using 
+        the resamples with no tuning.",
+        "i" = "Did you want to {.fn tune} parameters?"
+      )
     )
-    rlang::warn(msg)
 
     # Return `NULL` as the new `grid`, like what is used in `fit_resamples()`
     return(NULL)
@@ -1017,7 +1023,7 @@ check_grid <- function(grid, workflow, pset = NULL) {
 
     grid_distinct <- dplyr::distinct(grid)
     if (!identical(nrow(grid_distinct), nrow(grid))) {
-      rlang::warn(
+      cli::cli_warn(
         "Duplicate rows in grid of tuning combinations found and removed."
       )
     }

R/tune_helpers.R

@@ -31,22 +31,11 @@ set_workflow <- function(workflow, control) {
     if (!is.null(workflow$pre$actions$recipe)) {
       w_size <- utils::object.size(workflow$pre$actions$recipe)
       if (w_size / 1024^2 > 5) {
-        msg <- paste0(
-          "The workflow being saved contains a recipe, which is ",
-          format(w_size, units = "Mb", digits = 2),
-          " in memory. If this was not intentional, please set the control ",
-          "setting `save_workflow = FALSE`."
+        cli::cli_inform(
+          "The workflow being saved contains a recipe, which is {format(w_size, units = 'Mb', 
+          digits = 2)} in memory. If this was not intentional, please set the control 
+          setting {.code save_workflow = FALSE}."
         )
-        cols <- get_tidyclust_colors()
-        msg <- strwrap(
-          msg,
-          prefix = paste0(
-            cols$symbol$info(cli::symbol$info),
-            " "
-          )
-        )
-        msg <- cols$message$info(paste0(msg, collapse = "\n"))
-        rlang::inform(msg)
       }
     }
     workflow

tests/testthat/_snaps/tune_cluster.md

@@ -85,7 +85,8 @@
       ! The following predi...
     Condition
       Warning:
-      All models failed. See the `.notes` column.
+      All models failed.
+      i See the `.notes` column.
 
 # argument order gives errors for recipes