use base select instead of tidyselect for speed

nmdefries · nmdefries · commit 4f4a67a7de3c · 2024-03-25T18:18:23.000-04:00
diff --git a/R/slide.R b/R/slide.R
@@ -738,7 +738,7 @@ epi_slide_opt <- function(x, col_names, f, ..., before, after, ref_time_values,
 
     if (f_from_package == "data.table") {
       roll_output <- f(
-        x = select(.data_group, {{ col_names }}), n = m, align = "right", ...
+        x = .data_group[, col_names_chr], n = m, align = "right", ...
       )
 
       if (after >= 1) {

Original file line number	Diff line number	Diff line change
`@@ -738,7 +738,7 @@ epi_slide_opt <- function(x, col_names, f, ..., before, after, ref_time_values,`
`738`	`738`
`739`	`739`	`if (f_from_package == "data.table") {`
`740`	`740`	`roll_output <- f(`
`741`		`- x = select(.data_group, {{ col_names }}), n = m, align = "right", ...`
	`741`	`+ x = .data_group[, col_names_chr], n = m, align = "right", ...`
`742`	`742`	`)`
`743`	`743`
`744`	`744`	`if (after >= 1) {`