diff --git a/R/plotconfiguration-axis.R b/R/plotconfiguration-axis.R index 0e67d52b..3ffe47c7 100644 --- a/R/plotconfiguration-axis.R +++ b/R/plotconfiguration-axis.R @@ -22,18 +22,20 @@ createPlotScale <- function(scale) { #' @return name of the `ggplot2` scale #' @keywords internal createPlotTicks <- function(ticks) { - if (isOfLength(ticks, 0)) { + if (isEmpty(ticks)) { return(waiver()) } + if (isOfType(ticks, c("numeric", "function", "expression"))) { + return(ticks) + } + # If character if (isIncluded(ticks, c("default", "identity"))) { return(waiver()) } if (isIncluded(ticks, c("none"))) { return(NULL) } - if (isOfType(ticks, c("numeric", "character", "function", "expression"))) { - return(ticks) - } + return(ticks) }