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

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

Author: jarioksa
Date: 2009-11-18 17:34:26 +0100 (Wed, 18 Nov 2009)
New Revision: 1070

Modified:
   pkg/vegan/R/print.varpart.R
Log:
print.varpart uses pasteCall()

Modified: pkg/vegan/R/print.varpart.R
===================================================================
--- pkg/vegan/R/print.varpart.R	2009-11-14 13:17:11 UTC (rev 1069)
+++ pkg/vegan/R/print.varpart.R	2009-11-18 16:34:26 UTC (rev 1070)
@@ -2,8 +2,7 @@
 function (x, ...) 
 {
     cat("\nPartition of variation in RDA\n\n")
-    cat("Call:\n")
-    cat(deparse(x$call), "\n")
+    writeLines(strwrap(pasteCall(x$call)))
     if (x$scale)
         cat("Columns of Y were scaled to unit variance\n")
     if (!is.null(x$transfo))