style: styler (GHA)

Author: brookslogan

R/methods-epi_archive.R

@@ -1031,7 +1031,8 @@ dplyr_col_modify.col_modify_recorder_df <- function(data, cols) {
 #' # that point:
 #' archive_cases_dv_subset %>%
 #'   filter(version <= time_value + as.difftime(60, units = "days"),
-#'          .format_aware = TRUE)
+#'     .format_aware = TRUE
+#'   )
 #'
 #' @export
 filter.epi_archive <- function(.data, ..., .by = NULL, .format_aware = FALSE) {
@@ -1042,29 +1043,29 @@ filter.epi_archive <- function(.data, ..., .by = NULL, .format_aware = FALSE) {
   } else {
     out_tbl <- in_tbl %>%
       filter(
-      # Add our own fake filter arg to the user's ..., to update the data mask
-      # to prevent `version` column usage.
-      {
-        # We should be evaluating inside the data mask. To disable both
-        # `version` and `.data$version`, we need to go to the data mask's
-        # ------
-        e <- environment()
-        while (!identical(e, globalenv()) && !identical(e, emptyenv())) {
-          if ("version" %in% names(e)) {
-            # "version" is expected to be an active binding, and directly
-            # assigning over it has issues; explicitly `rm` first.
-            rm(list = "version", envir = e)
-            delayedAssign("version", cli::cli_abort(c(
-              "Using `version` in `filter` may produce unexpected results.",
-              ">" = "See if `epix_as_of` or `epix_slide` would work instead.",
-              ">" = "If not, see `?filter.epi_archive` details for how to proceed."
-            )), assign.env = e)
-            break
+        # Add our own fake filter arg to the user's ..., to update the data mask
+        # to prevent `version` column usage.
+        {
+          # We should be evaluating inside the data mask. To disable both
+          # `version` and `.data$version`, we need to go to the data mask's
+          # ------
+          e <- environment()
+          while (!identical(e, globalenv()) && !identical(e, emptyenv())) {
+            if ("version" %in% names(e)) {
+              # "version" is expected to be an active binding, and directly
+              # assigning over it has issues; explicitly `rm` first.
+              rm(list = "version", envir = e)
+              delayedAssign("version", cli::cli_abort(c(
+                "Using `version` in `filter` may produce unexpected results.",
+                ">" = "See if `epix_as_of` or `epix_slide` would work instead.",
+                ">" = "If not, see `?filter.epi_archive` details for how to proceed."
+              )), assign.env = e)
+              break
+            }
+            e <- parent.env(e)
           }
-          e <- parent.env(e)
-        }
-        TRUE
-      },
+          TRUE
+        },
         ...,
         .by = .by
       )