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()