Fixes Open-Systems-Pharmacology#220 expressions are check first when …

…creating plot ticks
pchelle · Feb 24, 2022 · 0bca761 · 0bca761
1 parent fe4eac2
commit 0bca761
Showing 1 changed file with 6 additions and 4 deletions.
diff --git 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)
 }