From 869eb43361d89b6cd57a969851fca5086516056e Mon Sep 17 00:00:00 2001
From: Hadley Wickham <h.wickham@gmail.com>
Date: Thu, 29 Feb 2024 07:24:16 -0600
Subject: [PATCH] Forward compatiblility for dbplyr 2.5.0

---
 R/Operations.R    | 2 +-
 extras/TestCode.R | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/Operations.R b/R/Operations.R
index 81fbc63..119d615 100644
--- a/R/Operations.R
+++ b/R/Operations.R
@@ -161,7 +161,7 @@ groupApply <- function(tbl, groupVariable, fun, ..., batchSize = 100000, progres
     env$groupData <- groups[[length(groups)]]
     env$groupValue <- groups[[length(groups)]][1, groupVariable]
   }
-  batchApply(tbl = tbl %>% arrange(rlang::sym(groupVariable)),
+  batchApply(tbl = tbl %>% arrange(.data[[groupVariable]]),
              fun = wrapper,
              userFun = fun,
              env = env,
diff --git a/extras/TestCode.R b/extras/TestCode.R
index fcc7da6..1a9a9bd 100644
--- a/extras/TestCode.R
+++ b/extras/TestCode.R
@@ -9,4 +9,4 @@ andr$cars <- cars
 andr[["cars"]]
 
 
-cars %>% filter(rlang::sym("speed") > 10) %>% collect()
+cars %>% filter(speed > 10) %>% collect()