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

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

Author: jarioksa
Date: 2009-10-05 07:09:17 +0200 (Mon, 05 Oct 2009)
New Revision: 1031

Modified:
   pkg/vegan/R/scores.default.R
Log:
r1026 broke scores.default and building vegan failed

Modified: pkg/vegan/R/scores.default.R
===================================================================
--- pkg/vegan/R/scores.default.R	2009-10-04 08:27:06 UTC (rev 1030)
+++ pkg/vegan/R/scores.default.R	2009-10-05 05:09:17 UTC (rev 1031)
@@ -37,7 +37,8 @@
             X <- x$c1
         else stop("Can't find scores")
     }
-    X <- as.matrix(x)
+    else if (is.numeric(x))
+        X <- as.matrix(x)
     if (is.null(rownames(X))) {
         root <- substr(display, 1, 4)
         rownames(X) <- paste(root, 1:nrow(X), sep = "")