From bc9fa59e39d1fcf19041c4a71cdc410ab4b80e03 Mon Sep 17 00:00:00 2001
From: Lindsay Carr <lcarr@usgs.gov>
Date: Wed, 17 Feb 2016 11:38:56 -0600
Subject: [PATCH] axis: n.minor use auto axis ticks if "at" hasn't been
 user-specified

---
 R/axis.R | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/R/axis.R b/R/axis.R
index ec414be..999ecb3 100644
--- a/R/axis.R
+++ b/R/axis.R
@@ -96,8 +96,16 @@ draw_axis <- function(gsplot, index.axis) {
     } else {
       axis(axisParams)
       n.minor <- n.minor + 1
-      #Minor axis:
-      at <- axTicks(axisParams$side)
+      
+      # Minor axis:
+
+      #if user hasn't specified "at", calculate it
+      if(is.null(axisParams$at)){
+        at <- axTicks(axisParams$side)
+      } else {
+        at <- axisParams$at
+      }
+      
       newAT <- c()
       
       if(axisParams$side %% 2 == 0){