[Robast-commits] r400 - branches/robast-0.8/pkg/RobAStBase/R

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

Author: ruckdeschel
Date: 2010-04-29 19:26:16 +0200 (Thu, 29 Apr 2010)
New Revision: 400

Modified:
   branches/robast-0.8/pkg/RobAStBase/R/comparePlot.R
Log:
yet another typo...

Modified: branches/robast-0.8/pkg/RobAStBase/R/comparePlot.R
===================================================================
--- branches/robast-0.8/pkg/RobAStBase/R/comparePlot.R	2010-04-29 14:56:33 UTC (rev 399)
+++ branches/robast-0.8/pkg/RobAStBase/R/comparePlot.R	2010-04-29 17:26:16 UTC (rev 400)
@@ -5,7 +5,8 @@
              col = par("col"), lwd = par("lwd"), lty, 
              col.inner = par("col.main"), cex.inner = 0.8, 
              bmar = par("mar")[1], tmar = par("mar")[3], 
-             legend.location = "bottomright", 
+             with.legend = TRUE, legend.bg = "white",
+             legend.location = "bottomright", legend.cex = 0.8,
              mfColRow = TRUE, to.draw.arg = NULL,
              cex.pts = 1, col.pts = par("col"),
              pch.pts = 1, jitter.fac = 1, with.lab = FALSE,
@@ -227,7 +228,7 @@
         on.exit(options(warn = w0))
         opar <- par()
         opar$cin <- opar$cra <- opar$csi <- opar$cxy <-  opar$din <- NULL
-        on.exit(par(opar))
+        if(mfColRow) on.exit(on.exit(par(opar)))
         
         if(mfColRow)
              par(mfrow = c(nrows, ncols))
@@ -436,8 +437,9 @@
                       line = lineT, cex.main = cex.inner, col.main = col.inner))
         }
         
-        legend(legend.location, legend = xc, col = col, 
-               cex = 0.75, lwd = lwd*1.5, lty = lty)
+        if(with.legend)
+           legend(legend.location, legend = xc, col = col, bg = legend.bg,
+               lwd = lwd*1.5, lty = lty, cex = legend.cex)
 
         if(!hasArg(cex.main)) cex.main <- par("cex.main") else cex.main <- dots$"cex.main"
         if(!hasArg(col.main)) col.main <- par("col.main") else col.main <- dots$"col.main"