Address tidyselect warnings on .data$

brookslogan · brookslogan · commit 332362bd1750 · 2025-04-16T14:08:56.000-07:00
diff --git a/R/methods-epi_df.R b/R/methods-epi_df.R
@@ -532,7 +532,7 @@ sum_groups_epi_df <- function(.x, sum_cols, group_cols = "time_value") {
   if (!"geo_value" %in% group_cols) {
     out <- out %>%
       mutate(geo_value = "total") %>%
-      relocate(.data$geo_value, .before = 1)
+      relocate("geo_value", .before = 1)
   }
 
   # The `geo_type` will be correctly inherited here by the following logic:

Original file line number	Diff line number	Diff line change
`@@ -532,7 +532,7 @@ sum_groups_epi_df <- function(.x, sum_cols, group_cols = "time_value") {`
`532`	`532`	`if (!"geo_value" %in% group_cols) {`
`533`	`533`	`out <- out %>%`
`534`	`534`	`mutate(geo_value = "total") %>%`
`535`		`- relocate(.data$geo_value, .before = 1)`
	`535`	`+ relocate("geo_value", .before = 1)`
`536`	`536`	`}`
`537`	`537`
`538`	`538`	# The `geo_type` will be correctly inherited here by the following logic: