From 0bca761bfec9eb9a04d1357561a0d55d29982a08 Mon Sep 17 00:00:00 2001
From: Unknown <chelle.pierre@gmail.com>
Date: Thu, 24 Feb 2022 08:16:21 -0500
Subject: [PATCH] Fixes #220 expressions are check first when creating plot
 ticks

---
 R/plotconfiguration-axis.R | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

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)
 }