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

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

Author: jarioksa
Date: 2008-11-19 18:39:09 +0100 (Wed, 19 Nov 2008)
New Revision: 576

Modified:
   pkg/vegan/R/pasteCall.R
Log:
simpler pasteCall

Modified: pkg/vegan/R/pasteCall.R
===================================================================
--- pkg/vegan/R/pasteCall.R	2008-11-19 17:29:53 UTC (rev 575)
+++ pkg/vegan/R/pasteCall.R	2008-11-19 17:39:09 UTC (rev 576)
@@ -1,15 +1,6 @@
 `pasteCall` <- function (call, prefix = "Call:") 
 {
-    objcall <- deparse(call)
-    if (length(objcall) > 1) {
-        call.str <- ""
-        for (i in seq(along = objcall)) {
-            call.str <- paste(call.str, objcall[i], sep = " ")
-        }
-    }
-    else {
-        call.str <- objcall
-    }
+    call.str <- paste(deparse(call), collapse = " ")
     call.str <- paste(prefix, call.str, "\n", sep = " ")
     return(call.str)
 }