style: styler (GHA)

Author: nmdefries

R/slide.R

@@ -536,9 +536,9 @@ epi_slide <- function(x, f, ..., before, after, ref_time_values,
 #'   dplyr::select(geo_value, time_value, cases, cases_14dav) %>%
 #'   ungroup()
 epi_slide_opt <- function(x, col_names, f, ..., before, after, ref_time_values,
-                           time_step,
-                           new_col_names = "slide_value", as_list_col = NULL,
-                           names_sep = "_", all_rows = FALSE) {
+                          time_step,
+                          new_col_names = "slide_value", as_list_col = NULL,
+                          names_sep = "_", all_rows = FALSE) {
   assert_class(x, "epi_df")
 
   if (nrow(x) == 0L) {