Used cli abort for make_groups.r mc.R and nest.R

tidymodels · Aug 15, 2024 · 4195508 · 4195508
1 parent fc4436c
commit 4195508
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 9 deletions.
diff --git a/R/make_groups.R b/R/make_groups.R
@@ -296,7 +296,7 @@ check_prop <- function(prop, replace) {
     ((prop <= 1 && replace) || (prop < 1 && !replace))
   acceptable_prop <- acceptable_prop && prop > 0
   if (!acceptable_prop) {
-    rlang::abort(
+    cli_abort(
       "`prop` must be a number between 0 and 1.",
       call = rlang::caller_env()
     )
@@ -345,13 +345,13 @@ validate_group <- function(group, data, call = rlang::caller_env()) {
   }
 
   if (is.null(group) || !is.character(group) || length(group) != 1) {
-    rlang::abort(
-      "`group` should be a single character value for the column that will be used for splitting.",
+    cli_abort(
+      "{.arg {group}} should be a single character value for the column that will be used for splitting.",
       call = call
     )
   }
   if (!any(names(data) == group)) {
-    rlang::abort("`group` should be a column in `data`.", call = call)
+    cli_abort("`group` should be a column in `data`.", call = call)
   }
 
   group

diff --git a/R/mc.R b/R/mc.R
@@ -104,7 +104,7 @@ mc_complement <- function(ind, n) {
 mc_splits <- function(data, prop = 3 / 4, times = 25,
                       strata = NULL, breaks = 4, pool = 0.1) {
   if (!is.numeric(prop) | prop >= 1 | prop <= 0) {
-    rlang::abort("`prop` must be a number on (0, 1).")
+    cli_abort("`prop` must be a number on (0, 1).")
   }
 
   n <- nrow(data)
@@ -244,7 +244,7 @@ group_mc_splits <- function(data, group, prop = 3 / 4, times = 25, strata = NULL
 
   all_assessable <- purrr::map(split_objs, function(x) nrow(assessment(x)))
   if (any(all_assessable == 0)) {
-    rlang::abort(
+    cli_abort(
       c(
         "Some assessment sets contained zero rows",
         i = "Consider using a non-grouped resampling method"

diff --git a/R/nest.R b/R/nest.R
@@ -80,9 +80,9 @@ nested_cv <- function(data, outside, inside) {
 
   inner_cl <- cl[["inside"]]
   if (!is_call(inner_cl)) {
-    abort(
-      "`inside` should be a expression such as `vfold()` or ",
-      "bootstraps(times = 10)` instead of an existing object.",
+    cli_abort(
+      "{.arg {inside}} should be a expression such as {.fun vfold} or //
+      {.code bootstraps(times = 10)} instead of an existing object."
     )
   }
   inside <- map(outside$splits, inside_resample, cl = inner_cl, env = env)