Apply suggestion from @teunbrand

Yunuuuu · teunbrand · web-flow · commit 67d134dfaf3d · 2025-09-25T15:24:54.000+08:00
Co-authored-by: Teun van den Brand &lt;49372158+teunbrand@users.noreply.github.com&gt;
diff --git a/R/stat-boxplot.R b/R/stat-boxplot.R
@@ -63,7 +63,7 @@ StatBoxplot <- ggproto("StatBoxplot", Stat,
     if (any(outliers)) {
       stats[c(1, 5)] <- range(c(stats[2:4], data$y[!outliers]), na.rm = TRUE)
     }
-    if (vec_size(data) > 0L && !is.null(data$width)) {
+    if (length(data$width) > 0L) {
       width <- data$width[1L]
     } else if (vec_unique_count(data$x) > 1) {
       width <- diff(range(data$x)) * 0.9

Original file line number	Diff line number	Diff line change
`@@ -63,7 +63,7 @@ StatBoxplot <- ggproto("StatBoxplot", Stat,`
`63`	`63`	`if (any(outliers)) {`
`64`	`64`	`stats[c(1, 5)] <- range(c(stats[2:4], data$y[!outliers]), na.rm = TRUE)`
`65`	`65`	`}`
`66`		`- if (vec_size(data) > 0L && !is.null(data$width)) {`
	`66`	`+ if (length(data$width) > 0L) {`
`67`	`67`	`width <- data$width[1L]`
`68`	`68`	`} else if (vec_unique_count(data$x) > 1) {`
`69`	`69`	`width <- diff(range(data$x)) * 0.9`