Format epi_slide roxygen examples

Author: lcbrooks

R/slide.R

@@ -112,39 +112,39 @@
 #' @importFrom rlang .data .env !! enquo enquos sym
 #' @export
 #' @examples 
-#'  # slide a 7-day trailing average formula on cases
-#'   jhu_csse_daily_subset %>%
+#' # slide a 7-day trailing average formula on cases
+#' jhu_csse_daily_subset %>%
 #'   group_by(geo_value) %>%
 #'   epi_slide(cases_7dav = mean(cases), before = 6) %>% 
 #'   # rmv a nonessential var. to ensure new col is printed
 #'   dplyr::select(-death_rate_7d_av) 
-#'  
-#'  # slide a 7-day leading average
-#'   jhu_csse_daily_subset %>%
+#'
+#' # slide a 7-day leading average
+#' jhu_csse_daily_subset %>%
 #'   group_by(geo_value) %>%
 #'   epi_slide(cases_7dav = mean(cases), after = 6) %>%
 #'   # rmv a nonessential var. to ensure new col is printed
 #'   dplyr::select(-death_rate_7d_av)
-#'   
-#'  # slide a 7-day centre-aligned average
-#'   jhu_csse_daily_subset %>%
+#'
+#' # slide a 7-day centre-aligned average
+#' jhu_csse_daily_subset %>%
 #'   group_by(geo_value) %>%
 #'   epi_slide(cases_7dav = mean(cases), before = 3, after = 3) %>% 
 #'   # rmv a nonessential var. to ensure new col is printed
 #'   dplyr::select(-death_rate_7d_av) 
-#'   
-#'  # slide a 14-day centre-aligned average
-#'   jhu_csse_daily_subset %>%
+#'
+#' # slide a 14-day centre-aligned average
+#' jhu_csse_daily_subset %>%
 #'   group_by(geo_value) %>%
 #'   epi_slide(cases_7dav = mean(cases), before = 6, after = 7) %>% 
 #'   # rmv a nonessential var. to ensure new col is printed
 #'   dplyr::select(-death_rate_7d_av) 
-#'  
-#'  # nested new columns
-#'   jhu_csse_daily_subset %>% 
+#'
+#' # nested new columns
+#' jhu_csse_daily_subset %>%
 #'   group_by(geo_value) %>%
-#'   epi_slide(a = data.frame(cases_2dav = mean(cases), 
-#'                           cases_2dma = mad(cases)),
+#'   epi_slide(a = data.frame(cases_2dav = mean(cases),
+#'                            cases_2dma = mad(cases)),
 #'             before = 1, as_list_col = TRUE)
 epi_slide = function(x, f, ..., before, after, ref_time_values,
                      time_step,