Revert compat-purrr.R to ad7fe11.

jonovik · jonovik · commit 32ee9828938a · 2025-09-08T15:46:57.000+02:00
As per #585 (comment)
diff --git a/R/compat-purrr.R b/R/compat-purrr.R
@@ -10,7 +10,9 @@ map <- function(.x, .f, ...) {
   lapply(.x, .f, ...)
 }
 map_mold <- function(.x, .f, .mold, ...) {
-  copy_names(.x, vapply(.x, .f, .mold, ..., USE.NAMES = FALSE))
+  out <- vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)
+  names(out) <- names(.x)
+  out
 }
 map_lgl <- function(.x, .f, ...) {
   map_mold(.x, .f, logical(1), ...)

Original file line number	Diff line number	Diff line change
`@@ -10,7 +10,9 @@ map <- function(.x, .f, ...) {`
`10`	`10`	`lapply(.x, .f, ...)`
`11`	`11`	`}`
`12`	`12`	`map_mold <- function(.x, .f, .mold, ...) {`
`13`		`- copy_names(.x, vapply(.x, .f, .mold, ..., USE.NAMES = FALSE))`
	`13`	`+ out <- vapply(.x, .f, .mold, ..., USE.NAMES = FALSE)`
	`14`	`+ names(out) <- names(.x)`
	`15`	`+ out`
`14`	`16`	`}`
`15`	`17`	`map_lgl <- function(.x, .f, ...) {`
`16`	`18`	`map_mold(.x, .f, logical(1), ...)`