fix warn for slide_opt's multi column case

Author: dsweber2

R/slide.R

@@ -39,7 +39,7 @@
 #'
 #' @importFrom lubridate days weeks
 #' @importFrom dplyr bind_rows group_vars filter select
-#' @importFrom rlang .data .env !! enquo enquos sym env missing_arg
+#' @importFrom rlang .data .env !! enquos sym env missing_arg
 #' @export
 #' @seealso [`epi_slide_opt`] [`epi_slide_mean`] [`epi_slide_sum`]
 #' @examples
@@ -321,7 +321,7 @@ epi_slide <- function(x, f, ..., before = NULL, after = NULL, ref_time_values =
 #'
 #' @template opt-slide-details
 #'
-#' @importFrom dplyr bind_rows mutate %>% arrange tibble select
+#' @importFrom dplyr bind_rows mutate %>% arrange tibble select all_of
 #' @importFrom rlang enquo quo_get_expr as_label expr_label caller_arg
 #' @importFrom tidyselect eval_select
 #' @importFrom purrr map map_lgl
@@ -495,7 +495,7 @@ epi_slide_opt <- function(x, col_names, f, ..., before = NULL, after = NULL, ref
   # positions of user-provided `col_names` into string column names. We avoid
   # using `names(pos)` directly for robustness and in case we later want to
   # allow users to rename fields via tidyselection.
-  pos <- eval_select(rlang::enquo(col_names), data = x, allow_rename = FALSE)
+  pos <- eval_select(all_of(col_names), data = x, allow_rename = FALSE)
   col_names_chr <- names(x)[pos]
   # Always rename results to "slide_value_<original column name>".
   result_col_names <- paste0("slide_value_", col_names_chr)

tests/testthat/test-epi_slide.R

@@ -1273,3 +1273,14 @@ test_that("`epi_slide_opt` errors when passed non-`data.table`, non-`slider` fun
     class = "epiprocess__epi_slide_opt__unsupported_slide_function"
   )
 })
+
+
+multi_columns <- dplyr::bind_rows(
+  dplyr::tibble(geo_value = "ak", time_value = test_date + 1:200, value = 1:200, value2 = -1:-200),
+  dplyr::tibble(geo_value = "al", time_value = test_date + 1:5, value = -(1:5), value2 = 1:5)
+) %>%
+  as_epi_df() %>% group_by(geo_value)
+
+test_that("no dplyr warnings from selecting multiple columns", {
+  expect_no_warning(epi_slide_mean(multi_columns, col_names = c("value", "value2"), before=3L))
+})