more descriptive frollmean window size name

nmdefries · nmdefries · commit 237fc38e5456 · 2024-03-26T13:02:30.000-04:00
diff --git a/R/slide.R b/R/slide.R
@@ -603,7 +603,7 @@ epi_slide_mean <- function(x, col_names, ..., before, after, ref_time_values,
 
   # `frollmean` is 1-indexed, so create a new window width based on our
   # `before` and `after` params.
-  m <- before + after + 1L
+  window_size <- before + after + 1L
 
   col_names_quo <- enquo(col_names)
   col_names_chr <- as.character(rlang::quo_get_expr(col_names_quo))
@@ -693,7 +693,7 @@ epi_slide_mean <- function(x, col_names, ..., before, after, ref_time_values,
     }
 
     roll_output <- data.table::frollmean(
-      x = select(.data_group, {{ col_names }}), n = m, align = "right", ...
+      x = select(.data_group, {{ col_names }}), n = window_size, align = "right", ...
     )
 
     if (after >= 1) {

Original file line number	Diff line number	Diff line change
`@@ -603,7 +603,7 @@ epi_slide_mean <- function(x, col_names, ..., before, after, ref_time_values,`
`603`	`603`
`604`	`604`	# `frollmean` is 1-indexed, so create a new window width based on our
`605`	`605`	# `before` and `after` params.
`606`		`- m <- before + after + 1L`
	`606`	`+ window_size <- before + after + 1L`
`607`	`607`
`608`	`608`	`col_names_quo <- enquo(col_names)`
`609`	`609`	`col_names_chr <- as.character(rlang::quo_get_expr(col_names_quo))`
`@@ -693,7 +693,7 @@ epi_slide_mean <- function(x, col_names, ..., before, after, ref_time_values,`
`693`	`693`	`}`
`694`	`694`
`695`	`695`	`roll_output <- data.table::frollmean(`
`696`		`- x = select(.data_group, {{ col_names }}), n = m, align = "right", ...`
	`696`	`+ x = select(.data_group, {{ col_names }}), n = window_size, align = "right", ...`
`697`	`697`	`)`
`698`	`698`
`699`	`699`	`if (after >= 1) {`