Use simple expressions

krlmlr · web-flow · commit fb7fdf801668 · 2025-11-18T00:00:38.000+01:00
diff --git a/R/count-tally.R b/R/count-tally.R
@@ -213,9 +213,9 @@ tally_n <- function(x, wt) {
   }
 
   if (quo_is_null(wt)) {
-    new_quosure(expr(n()), asNamespace("dplyr"))
+    expr(dplyr::n())
   } else {
-    new_quosure(expr(sum(!!wt, na.rm = TRUE)), baseenv())
+    expr(base::sum(!!wt, na.rm = TRUE))
   }
 }
 

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