Use vec_pany() and vec_pall()

Author: DavisVaughan

R/across.R

@@ -372,7 +372,7 @@ dplyr_list_pall <- function(
   size = NULL,
   error_call = caller_env()
 ) {
-  dplyr_list_pany_pall(x, "all", ..., size = size, error_call = error_call)
+  vec_pall(!!!x, .size = size, .error_call = error_call)
 }
 
 dplyr_list_pany <- function(
@@ -381,55 +381,7 @@ dplyr_list_pany <- function(
   size = NULL,
   error_call = caller_env()
 ) {
-  dplyr_list_pany_pall(x, "any", ..., size = size, error_call = error_call)
-}
-
-dplyr_list_pany_pall <- function(
-  x,
-  variant,
-  ...,
-  size = NULL,
-  error_call = caller_env()
-) {
-  check_dots_empty0(...)
-
-  obj_check_list(x, arg = "", call = error_call)
-
-  # Doesn't allow `NULL`, doesn't do type casting
-  for (i in seq_along(x)) {
-    check_logical(
-      x[[i]],
-      arg = (vec_names(x) %||% paste0("..", seq_len(vec_size(x))))[[i]],
-      call = error_call
-    )
-  }
-
-  # Doesn't do recycling, asserts that all inputs are the same size
-  if (is.null(size)) {
-    if (length(x) == 0L) {
-      size <- 0L
-    } else {
-      size <- vec_size(x[[1L]])
-    }
-  }
-  list_check_all_size(x, size, arg = "", call = error_call)
-
-  switch(
-    variant,
-    any = {
-      op <- `|`
-      init <- FALSE
-    },
-    all = {
-      op <- `&`
-      init <- TRUE
-    },
-    abort("Unreachable", .internal = TRUE)
-  )
-
-  init <- vec_rep(init, times = size)
-
-  reduce(x, op, .init = init)
+  vec_pany(!!!x, .size = size, .error_call = error_call)
 }
 
 #' Combine values from multiple columns