[Vegan-commits] r434 - in pkg: R inst

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

Author: jarioksa
Date: 2008-06-18 08:29:23 +0200 (Wed, 18 Jun 2008)
New Revision: 434

Modified:
   pkg/R/varpart.R
   pkg/inst/ChangeLog
Log:
wider width.cutoff in deparse() of formulae in printout of varpart

Modified: pkg/R/varpart.R
===================================================================
--- pkg/R/varpart.R	2008-06-17 07:05:13 UTC (rev 433)
+++ pkg/R/varpart.R	2008-06-18 06:29:23 UTC (rev 434)
@@ -40,9 +40,8 @@
         out$transfo <- transfo
     out$call <- match.call()
     mx <- rep(" ", length(X))
-    for (i in 1:length(X)) mx[i] <- deparse(out$call[[i+2]])
+    for (i in 1:length(X)) mx[i] <- deparse(out$call[[i+2]], width.cutoff = 500)
     out$tables <- mx
     class(out) <- c("varpart", class(out))
     out
 }
-

Modified: pkg/inst/ChangeLog
===================================================================
--- pkg/inst/ChangeLog	2008-06-17 07:05:13 UTC (rev 433)
+++ pkg/inst/ChangeLog	2008-06-18 06:29:23 UTC (rev 434)
@@ -28,6 +28,9 @@
 	the observed pseudo-F and permuted pseudo-F's are influenced
 	similarly by the change of df, and order statistic does not
 	change. 
+
+	* varpart: long formulae were cut off in printoutwith a cryptic
+	warning. 
 	
 Version 1.14-4 (closed June 12, 2008)