Skip to content
Merged
Changes from 1 commit
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 4 additions & 0 deletions R/scale-discrete-.R
Original file line number Diff line number Diff line change
Expand Up @@ -140,6 +140,10 @@ ScaleDiscretePosition <- ggproto("ScaleDiscretePosition", ScaleDiscrete,

map = function(self, x, limits = self$get_limits()) {
if (is.discrete(x)) {
# Guard against old use of having identity palettes
if (identical(.subset2(self, "palette"), identity)) {
self$palette <- seq_len
}
values <- self$palette(length(limits))
if (!is.numeric(values)) {
cli::cli_abort(
Expand Down