[Vegan-commits] r482 - pkg/R

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

Author: jarioksa
Date: 2008-08-22 13:44:53 +0200 (Fri, 22 Aug 2008)
New Revision: 482

Modified:
   pkg/R/print.cca.R
Log:
print.cca uses pasteCall (nicer in Sweave)

Modified: pkg/R/print.cca.R
===================================================================
--- pkg/R/print.cca.R	2008-08-21 07:55:36 UTC (rev 481)
+++ pkg/R/print.cca.R	2008-08-22 11:44:53 UTC (rev 482)
@@ -5,8 +5,8 @@
         warning("this is an ade4 object which vegan cannot handle")
         x <- ade2vegancca(x)
     }
-    cat("\nCall:\n")
-    cat(deparse(x$call), "\n\n")
+    writeLines(strwrap(pasteCall(x$call)))
+    cat("\n")
     chi <- rbind(x$tot.chi, x$pCCA$tot.chi, x$CCA$tot.chi, x$CA$tot.chi)
     rnk <- rbind(NA, x$pCCA$rank, x$CCA$rank, x$CA$rank)
     tbl <- cbind(chi, rnk)