Change warning() to rlang::warn()

Author: mine-cetinkaya-rundel

NAMESPACE

@@ -47,6 +47,7 @@ S3method(print,rand_forest)
 S3method(print,surv_reg)
 S3method(print,svm_poly)
 S3method(print,svm_rbf)
+S3method(tidy,model_fit)
 S3method(translate,boost_tree)
 S3method(translate,decision_tree)
 S3method(translate,default)
@@ -142,7 +143,6 @@ export(show_model_info)
 export(surv_reg)
 export(svm_poly)
 export(svm_rbf)
-export(tidy.model_fit)
 export(translate)
 export(update_dot_check)
 export(update_main_parameters)

R/aaa_multi_predict.R

@@ -19,7 +19,7 @@
 #' @export
 multi_predict <- function(object, ...) {
   if (inherits(object$fit, "try-error")) {
-    warning("Model fit failed; cannot make predictions.", call. = FALSE)
+    rlang::warn("Model fit failed; cannot make predictions.")
     return(NULL)
   }
   UseMethod("multi_predict")

R/arguments.R

@@ -24,9 +24,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 = ", ")
-    warning("The following arguments cannot be manually modified ",
-            "and were removed: ",
-            common_args, call. = FALSE)
+    rlang::warn(glue::glue("The following arguments cannot be manually modified",
+                           "and were removed: {common_args}."))
   }
   args
 }

R/engines.R

@@ -14,8 +14,7 @@ check_engine <- function(object) {
   avail_eng <- possible_engines(object)
   if (is.null(object$engine)) {
     object$engine <- avail_eng[1]
-    warning("`engine` was NULL and updated to be '",
-            object$engine, "'", call. = FALSE)
+    rlang::warn(glue::glue("`engine` was NULL and updated to be `{object$engine}`"))
   }
   if (!(object$engine %in% avail_eng)) {
     stop(

R/fit.R

@@ -103,7 +103,7 @@ fit.model_spec <-
       eng_vals <- possible_engines(object)
       object$engine <- eng_vals[1]
       if (control$verbosity > 0) {
-        warning("Engine set to `", object$engine, "`", call. = FALSE)
+        rlang::warn("Engine set to `{object$engine}`.")
       }
     }
 
@@ -192,7 +192,7 @@ fit_xy.model_spec <-
       eng_vals <- possible_engines(object)
       object$engine <- eng_vals[1]
       if (control$verbosity > 0) {
-        warning("Engine set to `", object$engine, "`", call. = FALSE)
+        rlang::warn(glue::glue("Engine set to `{object$engine}`."))
       }
     }
 

R/predict.R

@@ -113,7 +113,7 @@ predict.model_fit <- function(object, new_data, type = NULL, opts = list(), ...)
     stop("Did you mean to use `new_data` instead of `newdata`?", call. = FALSE)
 
   if (inherits(object$fit, "try-error")) {
-    warning("Model fit failed; cannot make predictions.", call. = FALSE)
+    rlang::warn("Model fit failed; cannot make predictions.")
     return(NULL)
   }
 
@@ -129,7 +129,7 @@ predict.model_fit <- function(object, new_data, type = NULL, opts = list(), ...)
 
   type <- check_pred_type(object, type)
   if (type != "raw" && length(opts) > 0)
-    warning("`opts` is only used with `type = 'raw'` and was ignored.")
+    rlang::warn("`opts` is only used with `type = 'raw'` and was ignored.")
   res <- switch(
     type,
     numeric  = predict_numeric(object = object, new_data = new_data, ...),

R/predict_class.R

@@ -17,7 +17,7 @@ predict_class.model_fit <- function(object, new_data, ...) {
     stop("No class prediction module defined for this model.", call. = FALSE)
 
   if (inherits(object$fit, "try-error")) {
-    warning("Model fit failed; cannot make predictions.", call. = FALSE)
+    rlang::warn("Model fit failed; cannot make predictions.")
     return(NULL)
   }
 

R/predict_classprob.R

@@ -14,7 +14,7 @@ predict_classprob.model_fit <- function(object, new_data, ...) {
     stop("No class probability module defined for this model.", call. = FALSE)
 
   if (inherits(object$fit, "try-error")) {
-    warning("Model fit failed; cannot make predictions.", call. = FALSE)
+    rlang::warn("Model fit failed; cannot make predictions.")
     return(NULL)
   }
 

R/predict_interval.R

@@ -15,7 +15,7 @@ predict_confint.model_fit <- function(object, new_data, level = 0.95, std_error
          "engine.", call. = FALSE)
 
   if (inherits(object$fit, "try-error")) {
-    warning("Model fit failed; cannot make predictions.", call. = FALSE)
+    rlang::warn("Model fit failed; cannot make predictions.")
     return(NULL)
   }
 
@@ -64,7 +64,7 @@ predict_predint.model_fit <- function(object, new_data, level = 0.95, std_error
          "engine.", call. = FALSE)
 
   if (inherits(object$fit, "try-error")) {
-    warning("Model fit failed; cannot make predictions.", call. = FALSE)
+    rlang::warn("Model fit failed; cannot make predictions.")
     return(NULL)
   }
 

R/predict_numeric.R

@@ -15,7 +15,7 @@ predict_numeric.model_fit <- function(object, new_data, ...) {
     stop("No prediction module defined for this model.", call. = FALSE)
 
   if (inherits(object$fit, "try-error")) {
-    warning("Model fit failed; cannot make predictions.", call. = FALSE)
+    rlang::warn("Model fit failed; cannot make predictions.")
     return(NULL)
   }