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

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

Author: weylandt
Date: 2012-07-19 06:08:12 +0200 (Thu, 19 Jul 2012)
New Revision: 686

Modified:
   pkg/xtsExtra/R/plot.R
Log:
Fix bug in ylim = 'auto' for long panels that came up in conversations with P Carl

Modified: pkg/xtsExtra/R/plot.R
===================================================================
--- pkg/xtsExtra/R/plot.R	2012-07-18 22:24:05 UTC (rev 685)
+++ pkg/xtsExtra/R/plot.R	2012-07-19 04:08:12 UTC (rev 686)
@@ -268,7 +268,7 @@
     ylim <- list(range(x))
   } else if(identical(ylim, 'auto')){
     if(ylab.loc == "none") {
-      ylim <- lapply(1:NROW(layout.screens), function(y) {
+      ylim <- lapply((1:NROW(layout.screens))[!duplicated(layout.screens)], function(y) {
         do.call(range,split.xts.by.cols(x, screens)[layout.screens[y,]])
       })
     } else {