style: styler (GHA)

Author: brookslogan

R/epi_df_forbidden_methods.R

@@ -9,11 +9,12 @@
 #' @export
 mean.epi_df <- function(x, ...) {
   cli_abort(c("`mean` can't be used on entire `epi_df`s",
-              "x" = "{rlang::caller_arg(x)} was an `epi_df`",
-              "i" = "If you encountered this while trying to take a rolling mean
+    "x" = "{rlang::caller_arg(x)} was an `epi_df`",
+    "i" = "If you encountered this while trying to take a rolling mean
                      of a column using `epi_slide`, you probably forgot to
                      specify the column name (e.g., ~ mean(.x$colname)). You may
-                     also prefer to use the specialized `epi_slide_mean` method."))
+                     also prefer to use the specialized `epi_slide_mean` method."
+  ))
 }
 
 # Similarly, provide better error messages for some other potentially-common
@@ -22,17 +23,21 @@ mean.epi_df <- function(x, ...) {
 #' @export
 Summary.epi_df <- function(..., na.rm = FALSE) {
   generic <- .Generic # cli uses dot prefixes for special purpose, don't upset it
-  maybe_opt_pointer <- switch(
-    .Generic,
+  maybe_opt_pointer <- switch(.Generic,
     sum = "You may also prefer the specialized epi_slide_sum method.",
-    prod =, min =, max =, all =, any = "You may also prefer the specialized epi_slide_opt method.",
+    prod = ,
+    min = ,
+    max = ,
+    all = ,
+    any = "You may also prefer the specialized epi_slide_opt method.",
     range = "",
     cli_abort("Unrecognized .Generic: {generic}")
   )
   cli_abort(c("`{generic}` can't be used on entire `epi_df`s",
-              "x" = "{rlang::caller_arg(..1)} was an `epi_df`",
-              "i" = "If you encountered this while trying to take a rolling {generic}
+    "x" = "{rlang::caller_arg(..1)} was an `epi_df`",
+    "i" = "If you encountered this while trying to take a rolling {generic}
                      of a column using `epi_slide`, you probably forgot to
                      specify the column name (e.g., ~ mean(.x$colname)).
-                     {maybe_opt_pointer}"))
+                     {maybe_opt_pointer}"
+  ))
 }