Skip to content

Commit 23ed929

Browse files
committed
Handle break length < 2
1 parent fc191a0 commit 23ed929

File tree

1 file changed

+12
-6
lines changed

1 file changed

+12
-6
lines changed

R/scale-.r

Lines changed: 12 additions & 6 deletions
Original file line numberDiff line numberDiff line change
@@ -1021,16 +1021,22 @@ ScaleBinned <- ggproto("ScaleBinned", Scale,
10211021
x <- self$rescale(self$oob(x, range = limits), limits)
10221022
breaks <- self$rescale(breaks, limits)
10231023

1024-
x_binned <- cut(x, breaks,
1025-
labels = FALSE,
1026-
include.lowest = TRUE,
1027-
right = self$right
1028-
)
1024+
if (length(breaks) > 1) {
1025+
x_binned <- cut(x, breaks,
1026+
labels = FALSE,
1027+
include.lowest = TRUE,
1028+
right = self$right
1029+
)
1030+
midpoints <- breaks[-1] - diff(breaks) / 2
1031+
} else {
1032+
x_binned <- 1L
1033+
midpoints <- 0.5
1034+
}
10291035

10301036
if (!is.null(self$palette.cache)) {
10311037
pal <- self$palette.cache
10321038
} else {
1033-
pal <- self$palette(breaks[-1] - diff(breaks) / 2)
1039+
pal <- self$palette(midpoints)
10341040
self$palette.cache <- pal
10351041
}
10361042

0 commit comments

Comments
 (0)