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

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

Author: weylandt
Date: 2012-08-14 07:44:08 +0200 (Tue, 14 Aug 2012)
New Revision: 713

Modified:
   pkg/xtsExtra/R/plot.R
Log:
Pass cex.lab to mtext() explicitly for axes: thanks to PCarl

Modified: pkg/xtsExtra/R/plot.R
===================================================================
--- pkg/xtsExtra/R/plot.R	2012-08-13 00:13:56 UTC (rev 712)
+++ pkg/xtsExtra/R/plot.R	2012-08-14 05:44:08 UTC (rev 713)
@@ -332,7 +332,7 @@
   xy <- list(x = .index(x), y = seq(min(x, na.rm = TRUE), max(x, na.rm = TRUE), length.out = NROW(x)))
   plot(xy$x, xy$y, type = "n", axes=FALSE, xlab = xlab, ylab = '', log = log, ylim = ylim)
   mtext(side = 2 + 2*(ylab.axis == "right") + 1*(ylab.axis == "top"), text = if(ylab.axis == "none") "" else ylab, 
-        line = 3 - 2.5*(ylab.axis == "top"), cex = 0.8)
+        line = 3 - 2.5*(ylab.axis == "top"), cex = par("cex.lab"))
   ep <- axTicksByTime(x, major.ticks, format.labels = major.format)
   
   if(!missing(blocks)){