fixes #2310

edzer · edzer · commit 074015201105 · 2024-01-20T12:22:45.000+01:00
diff --git a/R/tidyverse.R b/R/tidyverse.R
@@ -269,7 +269,7 @@ rename_with.sf = function(.data, .fn, .cols, ...) {
 		ret = dplyr::as_tibble(ret)
 	ret = st_as_sf(ret, sf_column_name = names(ret)[sf_column_loc])
 	
-	names(agr) = .fn(names(agr))
+	names(agr) = .fn(names(agr), ...)
 	st_agr(ret) = agr
 	ret
 }

Original file line number	Diff line number	Diff line change
`@@ -269,7 +269,7 @@ rename_with.sf = function(.data, .fn, .cols, ...) {`
`269`	`269`	`ret = dplyr::as_tibble(ret)`
`270`	`270`	`ret = st_as_sf(ret, sf_column_name = names(ret)[sf_column_loc])`
`271`	`271`
`272`		`- names(agr) = .fn(names(agr))`
	`272`	`+ names(agr) = .fn(names(agr), ...)`
`273`	`273`	`st_agr(ret) = agr`
`274`	`274`	`ret`
`275`	`275`	`}`