avoid creating column name with uppercase characters (#1601)

owenjonesphe · owenjonesphe · commit 7a4d9b56a9ee · 2025-04-02T10:10:44.000+01:00
diff --git 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)) {

Original file line number	Diff line number	Diff line change
`@@ -47,7 +47,7 @@ dbplyr_uncount <- function(data, weights, .remove = TRUE, .id = NULL) {`
`47`	`47`	`)`
`48`	`48`	`}`
`49`	`49`
`50`		`- n_max <- pull(summarise(ungroup(data), max(!!sym(weights_col), na.rm = TRUE)))`
	`50`	`+ n_max <- pull(summarise(ungroup(data), "max" = max(!!sym(weights_col), na.rm = TRUE)))`
`51`	`51`	`n_max <- vctrs::vec_cast(n_max, integer(), x_arg = "weights")`
`52`	`52`
`53`	`53`	`if (is_null(.id)) {`