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

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

Author: weylandt
Date: 2012-08-09 02:43:59 +0200 (Thu, 09 Aug 2012)
New Revision: 709

Modified:
   pkg/xtsExtra/R/plot.R
Log:
Respect legend.pars more effectively

Modified: pkg/xtsExtra/R/plot.R
===================================================================
--- pkg/xtsExtra/R/plot.R	2012-08-09 00:13:10 UTC (rev 708)
+++ pkg/xtsExtra/R/plot.R	2012-08-09 00:43:59 UTC (rev 709)
@@ -408,13 +408,13 @@
 }
 
 do_add.legend <- function(legend.names, legend.loc, col, lwd, pch, cex, type, ...){
-  legend(
+  do.call(legend, list(
     x = legend.loc, 
     legend = legend.names, 
     col = col, 
     lwd = lwd, 
     pch = if(type != "l") pch else NULL, 
-    cex = cex, ...)
+    cex = cex, ...))
 }
 
 do_plot.ohlc <- function(x, bar.col.up, bar.col.dn, candle.col, major.ticks,