[Xts-commits] r673 - pkg/xtsExtra/R

[noreply at r-forge.r-project.org]

Author: weylandt
Date: 2012-07-11 21:16:08 +0200 (Wed, 11 Jul 2012)
New Revision: 673

Modified:
   pkg/xtsExtra/R/plot.R
Log:
Fixed small bug where ylab.loc = 'out' didn't get labels on column 2

Modified: pkg/xtsExtra/R/plot.R
===================================================================
--- pkg/xtsExtra/R/plot.R	2012-07-03 23:49:49 UTC (rev 672)
+++ pkg/xtsExtra/R/plot.R	2012-07-11 19:16:08 UTC (rev 673)
@@ -255,7 +255,7 @@
     ylab.axis <- layout.screens 
     ylab.axis[,1] <- if(ylab.loc == "out") "left" else "right"
     ylab.axis[,2] <- if(ylab.loc == "out") "right" else "left"
-    if(ylab.loc == "in") have_y_axis[] <- TRUE # Axes for all if TRUE
+    have_y_axis[] <- TRUE # Axes for all if TRUE
   }
   
   # If labels are set to flip we do a little bit of work to arrange them
@@ -311,7 +311,6 @@
       if(minor.ticks) axis(1, at=xy$x, labels=FALSE, col='#BBBBBB')
       axis(1, at=xy$x[ep], labels=names(ep), las=1, lwd=1, mgp=c(3,2,0))  
     }
-    
     if(have_y_axis){
       axis(2 + 2*(ylab.axis == "right"))  
     }