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

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

Author: jarioksa
Date: 2014-01-08 10:33:40 +0100 (Wed, 08 Jan 2014)
New Revision: 2829

Modified:
   pkg/vegan/R/ordilabel.R
Log:
fix a warning in R-devel (O.K. in R <= 3.0.1)

Modified: pkg/vegan/R/ordilabel.R
===================================================================
--- pkg/vegan/R/ordilabel.R	2014-01-07 17:16:40 UTC (rev 2828)
+++ pkg/vegan/R/ordilabel.R	2014-01-08 09:33:40 UTC (rev 2829)
@@ -31,7 +31,8 @@
         else
             col <- par("fg")
     col <- rep(col, length=nrow(x))[ord]
-    border <- rep(border, length=nrow(x))[ord]
+    if(!is.null(border))
+        border <- rep(border, length=nrow(x))[ord]
     fill <- rep(fill, length=nrow(x))[ord]
     for (i in 1:nrow(x)) {
         ordiArgAbsorber(x[i,1] + c(-1,1,1,-1)*w[i], x[i,2] + c(-1,-1,1,1)*h[i],