Skip to content

Commit 0c997f1

Browse files
microlythomasp85
authored andcommitted
Fix #3575 fix a bug in ScaleBinned$get_breaks() (#3575)
1 parent 5f7d696 commit 0c997f1

File tree

1 file changed

+9
-1
lines changed

1 file changed

+9
-1
lines changed

R/scale-.r

+9-1
Original file line numberDiff line numberDiff line change
@@ -989,7 +989,15 @@ ScaleBinned <- ggproto("ScaleBinned", Scale,
989989
self$limits <- self$trans$transform(limits)
990990
}
991991
} else if (is.function(self$breaks)) {
992-
breaks <- self$breaks(limits, self$n_bins)
992+
if ("n.breaks" %in% names(formals(environment(self$breaks)$f))) {
993+
n.breaks <- self$n.breaks %||% 5 # same default as trans objects
994+
breaks <- self$breaks(limits, n.breaks = n.breaks)
995+
} else {
996+
if (!is.null(self$n.breaks)) {
997+
warning("Ignoring n.breaks. Use a breaks function that supports setting number of breaks", call. = FALSE)
998+
}
999+
breaks <- self$breaks(limits)
1000+
}
9931001
} else {
9941002
breaks <- self$breaks
9951003
}

0 commit comments

Comments
 (0)