move away form stop()

Author: topepo

DESCRIPTION

@@ -12,6 +12,7 @@ BugReports: https://github.com/tidymodels/modeldb/issues
 Depends:
     R (>= 3.61)
 Imports:
+    cli,
     dplyr (>= 0.7),
     ggplot2,
     progress,
@@ -32,7 +33,7 @@ Suggests:
 VignetteBuilder: 
     knitr
 Config/Needs/website: tidyverse/tidytemplate
+Config/testthat/edition: 3
 Encoding: UTF-8
-RoxygenNote: 7.2.3
 Roxygen: list(markdown = TRUE)
-Config/testthat/edition: 3
+RoxygenNote: 7.2.3

R/lm.R

@@ -122,7 +122,7 @@ mlr <- function(df, ..., y_var, sample_size = NULL, auto_count = FALSE) {
     if (auto_count) {
       sample_size <- pull(tally(df))
     } else {
-      stop("No sample size provided, and auto_count is set to FALSE")
+      cli::cli_abort("No sample size provided, and auto_count is set to FALSE")
     }
   }
 

R/model_prep.R

@@ -27,14 +27,14 @@ add_dummy_variables <- function(df, x, values = c(),
                                 auto_values = FALSE, remove_original = TRUE) {
   x <- enquo(x)
   var_found <- as_label(x) %in% tbl_vars(df)
-  if (!var_found) stop("Variable not found")
+  if (!var_found) cli::cli_abort("Variable not found")
   if (length(values) == 0) {
     if (auto_values == TRUE) {
       values <- group_by(df, !!x)
       values <- summarise(values)
       values <- pull(values)
     } else {
-      stop("No values provided and auto_values is set to FALSE")
+      cli::cli_abort("No values provided and auto_values is set to FALSE")
     }
   }
   vals <- map(values, ~ expr(ifelse(!!x == !!.x, 1, 0)))