remove NA breaks before creating the guides (#3999)

Author: thomasp85

R/guide-bins.R

@@ -132,6 +132,7 @@ guide_bins <- function(
 #' @export
 guide_train.bins <- function(guide, scale, aesthetic = NULL) {
   breaks <- scale$get_breaks()
+  breaks <- breaks[!is.na(breaks)]
   if (length(breaks) == 0 || all(is.na(breaks))) {
     return()
   }

R/guide-colorsteps.R

@@ -57,6 +57,7 @@ guide_colorsteps <- guide_coloursteps
 #' @export
 guide_train.colorsteps <- function(guide, scale, aesthetic = NULL) {
   breaks <- scale$get_breaks()
+  breaks <- breaks[!is.na(breaks)]
   if (guide$even.steps || !is.numeric(breaks)) {
     if (length(breaks) == 0 || all(is.na(breaks))) {
       return()