actually, no longer need the with_rename_error wrapper?

r-lib · Oct 28, 2024 · 8d84f61 · 8d84f61
1 parent b08764c
commit 8d84f61
Show file tree

Hide file tree

Showing 2 changed files with 28 additions and 42 deletions.
diff --git a/R/eval-relocate.R b/R/eval-relocate.R
@@ -117,17 +117,14 @@ eval_relocate <- function(expr,
   }
 
   if (has_before) {
-    where <- with_rename_errors(
-      eval_select(
-        expr = before,
-        data = data,
-        env = env,
-        error_call = error_call,
-        allow_predicates = allow_predicates,
-        allow_rename = FALSE
-      ),
-      arg = before_arg,
-      error_call = error_call
+    where <- eval_select(
+      expr = before,
+      data = data,
+      env = env,
+      error_call = error_call,
+      allow_predicates = allow_predicates,
+      allow_rename = FALSE,
+      error_arg = before_arg
     )
     where <- unname(where)
 
@@ -138,17 +135,14 @@ eval_relocate <- function(expr,
       where <- min(where)
     }
   } else if (has_after) {
-    where <- with_rename_errors(
-      eval_select(
-        expr = after,
-        data = data,
-        env = env,
-        error_call = error_call,
-        allow_predicates = allow_predicates,
-        allow_rename = FALSE
-      ),
-      arg = after_arg,
-      error_call = error_call
+    where <- eval_select(
+      expr = after,
+      data = data,
+      env = env,
+      error_call = error_call,
+      allow_predicates = allow_predicates,
+      allow_rename = FALSE,
+      error_arg = after_arg
     )
     where <- unname(where)
 
@@ -181,15 +175,3 @@ eval_relocate <- function(expr,
 
   sel
 }
-
-with_rename_errors <- function(expr, arg, error_call) {
-  withCallingHandlers(
-    expr,
-    `tidyselect_error_cannot_rename` = function(cnd) {
-      cli::cli_abort(
-        "Can't rename variables when {.arg {arg}} is supplied.",
-        call = error_call
-      )
-    }
-  )
-}
diff --git a/tests/testthat/_snaps/eval-relocate.md b/tests/testthat/_snaps/eval-relocate.md
@@ -112,22 +112,26 @@
 
     Code
       relocate_loc(x, b, before = c(new = c))
-    Condition <rlang_error>
+    Condition <tidyselect_error_cannot_rename>
       Error in `relocate_loc()`:
-      ! Can't rename variables when `before` is supplied.
+      ! Can't rename variables in this context.
+      i In argument: `before`.
     Code
       relocate_loc(x, b, before = c(new = c), before_arg = ".before")
-    Condition <rlang_error>
+    Condition <tidyselect_error_cannot_rename>
       Error in `relocate_loc()`:
-      ! Can't rename variables when `.before` is supplied.
+      ! Can't rename variables in this context.
+      i In argument: `.before`.
     Code
       relocate_loc(x, b, after = c(new = c))
-    Condition <rlang_error>
+    Condition <tidyselect_error_cannot_rename>
       Error in `relocate_loc()`:
-      ! Can't rename variables when `after` is supplied.
+      ! Can't rename variables in this context.
+      i In argument: `after`.
     Code
       relocate_loc(x, b, after = c(new = c), after_arg = ".after")
-    Condition <rlang_error>
+    Condition <tidyselect_error_cannot_rename>
       Error in `relocate_loc()`:
-      ! Can't rename variables when `.after` is supplied.
+      ! Can't rename variables in this context.
+      i In argument: `.after`.