more pipe removal

Author: nmdefries

R/grouped_epi_archive.R

@@ -380,9 +380,9 @@ grouped_epi_archive =
               )
             })
             # Combine output into a single tibble
-            x <- as_tibble(setDF(rbindlist(x))) %>%
-              # Reconstruct groups
-              group_by(!!!syms(private$vars), .drop=private$drop)
+            x <- as_tibble(setDF(rbindlist(x)))
+            # Reconstruct groups
+            x <- group_by(x, !!!syms(private$vars), .drop=private$drop)
 
             # Unchop/unnest if we need to
             if (!as_list_col) {

R/slide.R

@@ -300,8 +300,7 @@ epi_slide = function(x, f, ..., before, after, ref_time_values,
     # Count the number of appearances of each reference time value (these
     # appearances should all be real for now, but if we allow ref time values
     # outside of .data_group's time values):
-    counts = .data_group %>%
-      dplyr::filter(.data$time_value %in% time_values) %>%
+    counts =  dplyr::filter(.data_group, .data$time_value %in% time_values) %>%
       dplyr::count(.data$time_value) %>%
       dplyr::pull(n)
 
@@ -375,8 +374,7 @@ epi_slide = function(x, f, ..., before, after, ref_time_values,
     .x$.real <- NULL
     f(.x, .group_key, .ref_time_value, ...)
   }
-  x = x %>%
-    group_modify(slide_one_grp,
+  x = group_modify(x, slide_one_grp,
                  f = f_wrapper, ...,
                  starts = starts,
                  stops = stops,