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

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

Author: psolymos
Date: 2012-07-13 20:10:21 +0200 (Fri, 13 Jul 2012)
New Revision: 2231

Modified:
   pkg/vegan/R/print.oecosimu.R
Log:
print.oecosimu uses call to guess output object type

Modified: pkg/vegan/R/print.oecosimu.R
===================================================================
--- pkg/vegan/R/print.oecosimu.R	2012-07-12 19:03:44 UTC (rev 2230)
+++ pkg/vegan/R/print.oecosimu.R	2012-07-13 18:10:21 UTC (rev 2231)
@@ -1,7 +1,9 @@
 `print.oecosimu` <-
     function(x, ...)
 {
+    xx <- x ## return unmodified input object
     attr(x$oecosimu$method, "permfun") <- NULL
+    cat(as.character(attr(x,"call")[[1]]), "object\n\n")
     writeLines(strwrap(pasteCall(attr(x, "call"))))
     cat("\n")
     cat("nullmodel method", sQuote(x$oecosimu$method), "with", 
@@ -38,5 +40,7 @@
         cat("\nNumber of NA cases removed from simulations:\n",
             nacount, "\n")
     }
-    invisible(x)   
+    invisible(xx)   
 }
+
+