Skip to content

Commit

Permalink
style: styler (GHA)
Browse files Browse the repository at this point in the history
  • Loading branch information
brookslogan committed Nov 12, 2024
1 parent 9669773 commit fdc9ee7
Showing 1 changed file with 6 additions and 6 deletions.
12 changes: 6 additions & 6 deletions R/slide.R
Original file line number Diff line number Diff line change
Expand Up @@ -691,14 +691,14 @@ epi_slide_opt <- function(
~f, ~package, ~namer,
frollmean, "data.table", ~ if (is.logical(.x)) "prop" else "av",
frollsum, "data.table", ~ if (is.logical(.x)) "count" else "sum",
frollapply, "data.table", ~ "slide",
frollapply, "data.table", ~"slide",
slide_sum, "slider", ~ if (is.logical(.x)) "count" else "sum",
slide_prod, "slider", ~ "prod",
slide_prod, "slider", ~"prod",
slide_mean, "slider", ~ if (is.logical(.x)) "prop" else "av",
slide_min, "slider", ~ "min",
slide_max, "slider", ~ "max",
slide_all, "slider", ~ "all",
slide_any, "slider", ~ "any",
slide_min, "slider", ~"min",
slide_max, "slider", ~"max",
slide_all, "slider", ~"all",
slide_any, "slider", ~"any",
)
f_info <- f_possibilities %>%
filter(map_lgl(.data$f, ~ identical(.f, .x)))
Expand Down

0 comments on commit fdc9ee7

Please sign in to comment.