style: styler (GHA)

nmdefries · nmdefries · commit 9fd90e75a7f3 · 2024-03-26T17:23:34.000Z
diff --git a/R/slide.R b/R/slide.R
@@ -743,7 +743,7 @@ epi_slide_opt <- function(x, col_names, f, ..., before, after, ref_time_values,
       roll_output <- f(
         x = .data_group[, col_names_chr], n = window_size, align = "right", ...
       )
-      
+
       if (after >= 1) {
         # Right-aligned `frollmean` results' `ref_time_value`s will be `after`
         # timesteps ahead of where they should be. Shift results to the left by

Original file line number	Diff line number	Diff line change
`@@ -743,7 +743,7 @@ epi_slide_opt <- function(x, col_names, f, ..., before, after, ref_time_values,`
`743`	`743`	`roll_output <- f(`
`744`	`744`	`x = .data_group[, col_names_chr], n = window_size, align = "right", ...`
`745`	`745`	`)`
`746`		`-`
	`746`	`+`
`747`	`747`	`if (after >= 1) {`
`748`	`748`	# Right-aligned `frollmean` results' `ref_time_value`s will be `after`
`749`	`749`	`# timesteps ahead of where they should be. Shift results to the left by`