Use arg_match0() instead of arg_match() (#1087)

tidyverse · Jul 26, 2023 · c342361 · c342361
1 parent 60e3ba2
commit c342361
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 5 deletions.
diff --git a/R/adverb-compose.R b/R/adverb-compose.R
@@ -35,7 +35,7 @@
 #' fn <- compose(!!!fns)
 #' fn("input")
 compose <- function(..., .dir = c("backward", "forward")) {
-  .dir <- arg_match(.dir, c("backward", "forward"))
+  .dir <- arg_match0(.dir, c("backward", "forward"))
 
   fns <- map(list2(...), rlang::as_closure, env = caller_env())
   if (!length(fns)) {

diff --git a/R/detect.R b/R/detect.R
@@ -43,7 +43,7 @@
 #' which(map_lgl(x, "foo"))
 detect <- function(.x, .f, ..., .dir = c("forward", "backward"), .right = NULL, .default = NULL) {
   .f <- as_predicate(.f, ..., .mapper = TRUE)
-  .dir <- arg_match(.dir)
+  .dir <- arg_match0(.dir, c("forward", "backward"))
 
   for (i in index(.x, .dir, .right, "detect")) {
     if (.f(.x[[i]], ...)) {
@@ -58,7 +58,7 @@ detect <- function(.x, .f, ..., .dir = c("forward", "backward"), .right = NULL,
 #' @rdname detect
 detect_index <- function(.x, .f, ..., .dir = c("forward", "backward"), .right = NULL) {
   .f <- as_predicate(.f, ..., .mapper = TRUE)
-  .dir <- arg_match(.dir)
+  .dir <- arg_match0(.dir, c("forward", "backward"))
 
   for (i in index(.x, .dir, .right, "detect_index")) {
     if (.f(.x[[i]], ...)) {

diff --git a/R/reduce.R b/R/reduce.R
@@ -140,7 +140,7 @@ reduce_impl <- function(.x,
                         .dir,
                         .acc = FALSE,
                         .purrr_error_call = caller_env()) {
-  left <- arg_match(.dir, c("forward", "backward")) == "forward"
+  left <- arg_match0(.dir, c("forward", "backward")) == "forward"
 
   out <- reduce_init(.x, .init, left = left, error_call = .purrr_error_call)
   idx <- reduce_index(.x, .init, left = left)
@@ -478,7 +478,7 @@ seq_len2 <- function(start, end) {
 #' }
 #' @export
 accumulate <- function(.x, .f, ..., .init, .dir = c("forward", "backward"), .simplify = NA, .ptype = NULL) {
-  .dir <- arg_match(.dir, c("forward", "backward"))
+  .dir <- arg_match0(.dir, c("forward", "backward"))
   .f <- as_mapper(.f, ...)
 
   res <- reduce_impl(.x, .f, ..., .init = .init, .dir = .dir, .acc = TRUE)