[Vegan-commits] r1346 - pkg/vegan/R

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

Author: jarioksa
Date: 2010-11-03 10:10:05 +0100 (Wed, 03 Nov 2010)
New Revision: 1346

Modified:
   pkg/vegan/R/plot.prc.R
Log:
fix plot.prc after r1343 where I scrambled Cajo's submission

Modified: pkg/vegan/R/plot.prc.R
===================================================================
--- pkg/vegan/R/plot.prc.R	2010-11-02 15:04:10 UTC (rev 1345)
+++ pkg/vegan/R/plot.prc.R	2010-11-03 09:10:05 UTC (rev 1346)
@@ -3,6 +3,8 @@
               xlab, ylab, ylim, lty = 1:5, col = 1:6, pch, legpos, cex = 0.8,
               ...)
 {
+    ## save level names before getting the summary
+    levs <- x$terminfo$xlev[[2]]
     x <- summary(x, scaling = scaling, axis = axis)
     oldpar <- par(no.readonly = TRUE)
     on.exit(par(oldpar))
@@ -41,7 +43,6 @@
         else legpos <- "topleft"
     }
     if (!is.na(legpos)) {
-        levs <- object$terminfo$xlev[[2]]
         nl <- length(levs)
         pp <- type %in% c("b", "p")
         pl <- type %in% c("b", "l")