style: styler (GHA)

Author: brookslogan

R/epi_slide_opt_edf.R

@@ -226,12 +226,11 @@ epi_slide_opt_one_epikey <- function(inp_tbl,
     )
   }
   rows_should_keep1 <- !is.na(slide_inp_backrefs)
-  rows_should_keep2 <- switch(
-    out_filter_time_style,
+  rows_should_keep2 <- switch(out_filter_time_style,
     range = vec_rep_each(
       c(FALSE, TRUE, FALSE),
       time_minus_time_in_n_steps(
-        vctrs::vec_c(out_t_min,   out_t_max, slide_t_max),
+        vctrs::vec_c(out_t_min, out_t_max, slide_t_max),
         vctrs::vec_c(slide_t_min, out_t_min, out_t_max),
         time_type
       ) + c(0L, 1L, 0L)