Fix grouped epi_df select when renaming

brookslogan · brookslogan · commit 9cc34370156f · 2024-01-12T19:16:31.000-08:00
diff --git a/R/group_by_epi_df_methods.R b/R/group_by_epi_df_methods.R
@@ -2,7 +2,8 @@
 #' @export
 select.epi_df <- function(.data, ...) {
   selected <- NextMethod(.data)
-  return (dplyr_reconstruct(selected, .data))
+  might_decay <- reclass(selected, attr(selected, "metadata"))
+  return(dplyr_reconstruct(might_decay, might_decay))
 }
 
 # others to consider:

Original file line number	Diff line number	Diff line change
`@@ -2,7 +2,8 @@`
`2`	`2`	`#' @export`
`3`	`3`	`select.epi_df <- function(.data, ...) {`
`4`	`4`	`selected <- NextMethod(.data)`
`5`		`- return (dplyr_reconstruct(selected, .data))`
	`5`	`+ might_decay <- reclass(selected, attr(selected, "metadata"))`
	`6`	`+ return(dplyr_reconstruct(might_decay, might_decay))`
`6`	`7`	`}`
`7`	`8`
`8`	`9`	`# others to consider:`