diff --git a/R/verb-uncount.R b/R/verb-uncount.R index 713b77abc..8a3dded99 100644 --- a/R/verb-uncount.R +++ b/R/verb-uncount.R @@ -47,7 +47,7 @@ dbplyr_uncount <- function(data, weights, .remove = TRUE, .id = NULL) { ) } - n_max <- pull(summarise(ungroup(data), max(!!sym(weights_col), na.rm = TRUE))) + n_max <- pull(summarise(ungroup(data), "max" = max(!!sym(weights_col), na.rm = TRUE))) n_max <- vctrs::vec_cast(n_max, integer(), x_arg = "weights") if (is_null(.id)) {