Correct likely bug in geom-boxplot (#5413)

MichaelChirico · web-flow · commit 3664af8c985a · 2023-09-09T00:48:46.000+02:00
diff --git a/R/geom-boxplot.R b/R/geom-boxplot.R
@@ -268,7 +268,7 @@ GeomBoxplot <- ggproto("GeomBoxplot", Geom,
     )
     box <- flip_data(box, flipped_aes)
 
-    if (!is.null(data$outliers) && length(data$outliers[[1]] >= 1)) {
+    if (!is.null(data$outliers) && length(data$outliers[[1]]) >= 1) {
       outliers <- data_frame0(
         y = data$outliers[[1]],
         x = data$x[1],

Original file line number	Diff line number	Diff line change
`@@ -268,7 +268,7 @@ GeomBoxplot <- ggproto("GeomBoxplot", Geom,`
`268`	`268`	`)`
`269`	`269`	`box <- flip_data(box, flipped_aes)`
`270`	`270`
`271`		`- if (!is.null(data$outliers) && length(data$outliers[[1]] >= 1)) {`
	`271`	`+ if (!is.null(data$outliers) && length(data$outliers[[1]]) >= 1) {`
`272`	`272`	`outliers <- data_frame0(`
`273`	`273`	`y = data$outliers[[1]],`
`274`	`274`	`x = data$x[1],`