perf(group_epi_df): avoid data masking & tidyselect

brookslogan · brookslogan · commit fc43d4a71672 · 2025-02-09T23:31:15.000-08:00
diff --git a/R/methods-epi_df.R b/R/methods-epi_df.R
@@ -470,7 +470,7 @@ arrange_col_canonical.epi_df <- function(x, ...) {
 #' @export
 group_epi_df <- function(x, exclude = character()) {
   cols <- key_colnames(x, exclude = exclude)
-  x %>% group_by(across(all_of(cols)))
+  reclass(grouped_df(x, cols), attr(x, "metadata"))
 }
 
 #' Aggregate an `epi_df` object

Original file line number	Diff line number	Diff line change
`@@ -470,7 +470,7 @@ arrange_col_canonical.epi_df <- function(x, ...) {`
`470`	`470`	`#' @export`
`471`	`471`	`group_epi_df <- function(x, exclude = character()) {`
`472`	`472`	`cols <- key_colnames(x, exclude = exclude)`
`473`		`- x %>% group_by(across(all_of(cols)))`
	`473`	`+ reclass(grouped_df(x, cols), attr(x, "metadata"))`
`474`	`474`	`}`
`475`	`475`
`476`	`476`	#' Aggregate an `epi_df` object