[Vegan-commits] r1277 - in pkg/vegan: R inst

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

Author: jarioksa
Date: 2010-08-24 12:18:39 +0200 (Tue, 24 Aug 2010)
New Revision: 1277

Modified:
   pkg/vegan/R/biplot.CCorA.R
   pkg/vegan/inst/ChangeLog
Log:
reset par

Modified: pkg/vegan/R/biplot.CCorA.R
===================================================================
--- pkg/vegan/R/biplot.CCorA.R	2010-08-24 07:48:01 UTC (rev 1276)
+++ pkg/vegan/R/biplot.CCorA.R	2010-08-24 10:18:39 UTC (rev 1277)
@@ -1,8 +1,11 @@
 `biplot.CCorA` <-
     function(x, plot.type="ov", xlabs, plot.axes = 1:2, int=0.5, col.Y="red", col.X="blue", cex=c(0.7,0.9), ...)
 {
+    ## Function sets par(): reset them on.exit
+    opar <- par(no.readonly = TRUE)
+    on.exit(par(opar))
     #### Internal function
-	larger.frame <- function(mat, percent=0.10)
+    larger.frame <- function(mat, percent=0.10)
 	# Produce an object plot 10% larger than strictly necessary
 	{
 	range.mat <- apply(mat,2,range)
@@ -118,4 +121,4 @@
 		title(main = c("CCorA biplot","Second data table (X)"), line=4)
 		}
 	invisible()
-}
\ No newline at end of file
+}

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2010-08-24 07:48:01 UTC (rev 1276)
+++ pkg/vegan/inst/ChangeLog	2010-08-24 10:18:39 UTC (rev 1277)
@@ -7,6 +7,8 @@
 	* New version opened with the release of vegan_1.17-4 on August
 	20, 2010.
 
+	* biplot.CCorA: resets par that it sets.
+
 	* permutest.cca: defaults to 99 permutations instead of 100 (to
 	be consistent). Item 'call' now stores the call to permutest()
 	instead of the call of the ordination which is now saved in