perf(slide.R): remove some data-masking, tidyeval

Author: brookslogan

R/slide.R

@@ -310,14 +310,13 @@ epi_slide <- function(
     .keep = TRUE
   ) %>%
     bind_rows() %>%
-    filter(.real) %>%
-    select(-.real) %>%
+    `[`(.$.real, names(.) != ".real") %>%
     arrange_col_canonical() %>%
     group_by(!!!.x_orig_groups)
 
   # If every group in epi_slide_one_group takes the
   # length(available_ref_time_values) == 0 branch then we end up here.
-  if (ncol(result) == ncol(.x %>% select(-.real))) {
+  if (ncol(result) == ncol(.x[names(.x) != ".real"])) {
     cli_abort(
       "epi_slide: no new columns were created. This can happen if every group has no available ref_time_values.
       This is likely a mistake in your data, in the slide computation, or in the ref_time_values argument.",
@@ -957,8 +956,7 @@ epi_slide_opt <- function(
 
   result <- mutate(.x, .real = TRUE) %>%
     group_modify(slide_one_grp, ..., .keep = FALSE) %>%
-    filter(.data$.real) %>%
-    select(-.real) %>%
+    `[`(.$.real, names(.) != ".real") %>%
     arrange_col_canonical() %>%
     group_by(!!!.x_orig_groups)