Update R/count-tally.R

krlmlr · web-flow · commit f5ddcea8e1dc · 2025-11-17T22:26:38.000+01:00
diff --git a/R/count-tally.R b/R/count-tally.R
@@ -215,7 +215,7 @@ tally_n <- function(x, wt) {
   if (quo_is_null(wt)) {
     new_quosure(expr(n()), asNamespace("dplyr"))
   } else {
-    new_quosure(expr(sum(!!wt, na.rm = TRUE)), quo_get_env(wt))
+    new_quosure(expr(sum(!!wt, na.rm = TRUE)), baseenv())
   }
 }
 

Original file line number	Diff line number	Diff line change
`@@ -215,7 +215,7 @@ tally_n <- function(x, wt) {`
`215`	`215`	`if (quo_is_null(wt)) {`
`216`	`216`	`new_quosure(expr(n()), asNamespace("dplyr"))`
`217`	`217`	`} else {`
`218`		`- new_quosure(expr(sum(!!wt, na.rm = TRUE)), quo_get_env(wt))`
	`218`	`+ new_quosure(expr(sum(!!wt, na.rm = TRUE)), baseenv())`
`219`	`219`	`}`
`220`	`220`	`}`
`221`	`221`