[Vegan-commits] r374 - pkg/R

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

Author: jarioksa
Date: 2008-05-28 11:38:02 +0200 (Wed, 28 May 2008)
New Revision: 374

Modified:
   pkg/R/plot.mso.R
Log:
plot.mso does not set par automatically and globally

Modified: pkg/R/plot.mso.R
===================================================================
--- pkg/R/plot.mso.R	2008-05-28 07:57:33 UTC (rev 373)
+++ pkg/R/plot.mso.R	2008-05-28 09:38:02 UTC (rev 374)
@@ -14,7 +14,11 @@
         b <- ncol(vario) - 3
         label <- c("", "", "", "Total variance", "Explained plus residual", 
                    "Residual variance", "Explained variance", "Conditioned variance")
-        par(omi = c(0.5, 0.5, 0, 0))
+        ## You should not change par, or at least you must put
+        ## back the old values when exiting:
+        ## op <- par(omi = c(0.5, 0.5, 0, 0))
+        ## on.exit(par(op))
+        ##par(omi = c(0.5, 0.5, 0, 0))
         if (is.numeric(object$CCA$rank)) {
             if (!explained) 
                 b <- b - 1