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

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

Author: weylandt
Date: 2012-07-12 00:30:50 +0200 (Thu, 12 Jul 2012)
New Revision: 674

Modified:
   pkg/xtsExtra/R/plot.R
Log:
Added flipping legends, but broke margins again so nothing lines up

Modified: pkg/xtsExtra/R/plot.R
===================================================================
--- pkg/xtsExtra/R/plot.R	2012-07-11 19:16:08 UTC (rev 673)
+++ pkg/xtsExtra/R/plot.R	2012-07-11 22:30:50 UTC (rev 674)
@@ -259,7 +259,12 @@
   }
   
   # If labels are set to flip we do a little bit of work to arrange them
-  if(ylab.loc == "flip") stop("Need to implement ylab.loc == 'flip'")
+  if(ylab.loc == "flip") {
+    warning("This is currently still real bad -- I despise margins...")
+    ylab.axis <- layout.screens
+    for(i in seq_len(NCOL(ylab.axis))) ylab.axis[,i] <- c("left","right") 
+    have_y_axis[] <- TRUE
+  }
   
   # Moving internal margin code to the panel-wise setup, leaving oma (outer) margin here
   if(length(levels(screens)) > 1L) par(oma = c(1,1,4,1))