style: styler (GHA)

Author: brookslogan

R/slide.R

@@ -132,7 +132,7 @@
 #' # Generate some simple time-varying CFR estimates:
 #' with_cfr_estimates <- cases_deaths_subset %>%
 #'   epi_slide(
-#'     cfr_estimate_v0 = death_rate_7d_av[[22]]/case_rate_7d_av[[1]],
+#'     cfr_estimate_v0 = death_rate_7d_av[[22]] / case_rate_7d_av[[1]],
 #'     .window_size = 22
 #'   )
 #' with_cfr_estimates %>%
@@ -148,7 +148,7 @@
 #' my_computation <- function(window_data) {
 #'   tibble(
 #'     cfr_estimate_v0 = window_data$death_rate_7d_av[[nrow(window_data)]] /
-#'                       window_data$case_rate_7d_av[[1]]
+#'       window_data$case_rate_7d_av[[1]]
 #'   )
 #' }
 #' with_cfr_estimates2 <- cases_deaths_subset %>%
@@ -161,7 +161,7 @@
 #'     function(window_data, g, t) {
 #'       tibble(
 #'         cfr_estimate_v0 = window_data$death_rate_7d_av[[nrow(window_data)]] /
-#'                           window_data$case_rate_7d_av[[1]]
+#'           window_data$case_rate_7d_av[[1]]
 #'       )
 #'     },
 #'     .window_size = 22