new version passes the tests

Author: dsweber2

R/step_epi_slide.R

@@ -211,7 +211,7 @@ epi_slide_wrapper <- function(new_data, before, after, columns, fns, fn_names, g
         fn <- cols_fns[[comp_i, "fn"]][[1L]]
         result_name <- paste(name_prefix, fn_name, col_name, sep="_")
         result <- new_data %>%
-          group_by(across(group_keys)) %>%
+          group_by(across(all_of(group_keys))) %>%
           epi_slide(
             before = before,
             after = after,

tests/testthat/test-step_epi_slide.R

@@ -109,14 +109,20 @@ test_that("epi_slide handles classed before/after", {
 
 
 test_that("epi_slide handles different function specs", {
+  expect_warning(
   cfun <- r %>%
     step_epi_slide(value, .f = "mean", before = 3L) %>%
     prep(edf) %>%
-    bake(new_data = NULL)
-  ffun <- r %>%
-    step_epi_slide(value, .f = mean, before = 3L) %>%
-    prep(edf) %>%
-    bake(new_data = NULL)
+    bake(new_data = NULL),
+    regexp = "There is an optimized version"
+  )
+  expect_warning(
+    ffun <- r %>%
+      step_epi_slide(value, .f = mean, before = 3L) %>%
+      prep(edf) %>%
+      bake(new_data = NULL),
+    regexp = "There is an optimized version"
+  )
   # formula NOT currently supported
   expect_error(
     lfun <- r %>%