Skip to content
Open
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions R/count-tally.R
Original file line number Diff line number Diff line change
Expand Up @@ -213,9 +213,9 @@ tally_n <- function(x, wt) {
}

if (quo_is_null(wt)) {
expr(n())
new_quosure(expr(n()), asNamespace("dplyr"))
} else {
expr(sum(!!wt, na.rm = TRUE))
new_quosure(expr(sum(!!wt, na.rm = TRUE)), quo_get_env(wt))
Copy link
Member Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

This probably should be:

Suggested change
new_quosure(expr(sum(!!wt, na.rm = TRUE)), quo_get_env(wt))
new_quosure(expr(sum(!!wt, na.rm = TRUE)), baseenv())

}
}

Expand Down