fix: more

Author: dshemetov

R/slide.R

@@ -90,7 +90,7 @@
 #'   ungroup()
 epi_slide <- function(
     x, f, ...,
-    .n = 0, .align = c("right", "center", "left"), .ref_time_values = NULL,
+    .window_size = 0, .align = c("right", "center", "left"), .ref_time_values = NULL,
     .new_col_name = "slide_value", .as_list_col = FALSE, .names_sep = "_", .all_rows = FALSE,
     before = NULL, after = NULL, ref_time_values = NULL, new_col_name = NULL,
     as_list_col = NULL, names_sep = NULL, all_rows = NULL) {
@@ -130,8 +130,8 @@ epi_slide <- function(
   # Handle window arguments
   align <- rlang::arg_match(.align)
   time_type <- attr(x, "metadata")$time_type
-  validate_slide_window_arg(.n, time_type)
-  if (identical(.n, Inf)) {
+  validate_slide_window_arg(.window_size, time_type)
+  if (identical(.window_size, Inf)) {
     if (align == "right") {
       before <- Inf
       if (time_type %in% c("day", "week")) {
@@ -146,15 +146,15 @@ epi_slide <- function(
     }
   } else {
     if (align == "right") {
-      before <- .n - 1
+      before <- .window_size - 1
       after <- 0
     } else if (align == "center") {
       # For n = 5, before = 2, after = 2. For n = 4, before = 2, after = 1.
-      before <- floor(.n / 2)
-      after <- .n - before - 1
+      before <- floor(.window_size / 2)
+      after <- .window_size - before - 1
     } else if (align == "left") {
       before <- 0
-      after <- .n - 1
+      after <- .window_size - 1
     }
   }
 

man-roxygen/basic-slide-params.R

@@ -1,9 +1,9 @@
 #' @param x The `epi_df` object under consideration, [grouped][dplyr::group_by]
 #'   or ungrouped. If ungrouped, all data in `x` will be treated as part of a
 #'   single data group.
-#' @param .n The size of the sliding window. By default, this is 0, meaning that
-#' only the current ref_time_value is included. The accepted values here depend
-#' on the `time_value` column:
+#' @param .window_size The size of the sliding window. By default, this is 0,
+#' meaning that only the current ref_time_value is included. The accepted values
+#' here depend on the `time_value` column:
 #'
 #'   - if time_type is Date and the cadence is daily, then `.n` can be an integer
 #'     (which will be interpreted in units of days) or a difftime with units