[Vegan-commits] r2518 - pkg/permute/R

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

Author: gsimpson
Date: 2013-06-12 21:21:12 +0200 (Wed, 12 Jun 2013)
New Revision: 2518

Modified:
   pkg/permute/R/print.how.R
Log:
bug fix in where it looks for the deparsed, substituted name of Plot-level strata

Modified: pkg/permute/R/print.how.R
===================================================================
--- pkg/permute/R/print.how.R	2013-06-12 19:18:58 UTC (rev 2517)
+++ pkg/permute/R/print.how.R	2013-06-12 19:21:12 UTC (rev 2518)
@@ -24,9 +24,10 @@
     
     ## Plots
     writeLines("Plots:")
-    plots <- getStrata(x, which = "plots")
+    plotStr <- getStrata(x, which = "plots")
+    plots <- getPlots(x)
     ptype <- getType(x, which = "plots")
-    if (is.null(plots)) {
+    if (is.null(plotStr)) {
         writeLines(strwrap("Defined by: none", prefix = pfix))
     } else {
         writeLines(strwrap(paste("Plots:", plots$plots.name),