Use pluck_depth() in modify_depth()/map_depth()

tidyverse · Aug 29, 2022 · ccf8f8f · ccf8f8f
1 parent 49da5a6
commit ccf8f8f
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/map.R b/R/map.R
@@ -291,7 +291,7 @@ map_depth <- function(.x, .depth, .f, ..., .ragged = FALSE) {
     abort("`.depth` must be a single number")
   }
   if (.depth < 0) {
-    .depth <- vec_depth(.x) + .depth
+    .depth <- pluck_depth(.x) + .depth
   }
 
   .f <- as_mapper(.f, ...)

diff --git a/R/modify.R b/R/modify.R
@@ -388,7 +388,7 @@ modify_depth.default <- function(.x, .depth, .f, ..., .ragged = .depth < 0) {
   force(.ragged)
 
   if (.depth < 0) {
-    .depth <- vec_depth(.x) + .depth
+    .depth <- pluck_depth(.x) + .depth
   }
 
   .f <- as_mapper(.f, ...)