[Vegan-commits] r1550 - in pkg/vegan: R inst man

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

Author: jarioksa
Date: 2011-03-22 14:54:07 +0100 (Tue, 22 Mar 2011)
New Revision: 1550

Modified:
   pkg/vegan/R/ordilabel.R
   pkg/vegan/inst/ChangeLog
   pkg/vegan/man/ordilabel.Rd
Log:
ordilabel gained arg 'xpd' to label items outside plot region

Modified: pkg/vegan/R/ordilabel.R
===================================================================
--- pkg/vegan/R/ordilabel.R	2011-03-19 19:31:32 UTC (rev 1549)
+++ pkg/vegan/R/ordilabel.R	2011-03-22 13:54:07 UTC (rev 1550)
@@ -1,7 +1,7 @@
 `ordilabel` <-
     function(x, display, labels, choices = c(1,2), priority,
              cex = 0.8, fill = "white", border = NULL, col = NULL,
-             ...)
+             xpd = TRUE, ...)
 {
     if (missing(display))
         display <- "sites"
@@ -24,8 +24,9 @@
             col <- par("fg")
     for (i in 1:nrow(x)) {
         polygon(x[i,1] + c(-1,1,1,-1)*w[i], x[i,2] + c(-1,-1,1,1)*h[i],
-                col = fill, border = border)
-        text(x[i,1], x[i,2], labels = labels[i], cex = cex, col = col, ...)
+                col = fill, border = border, xpd = xpd)
+        text(x[i,1], x[i,2], labels = labels[i], cex = cex, col = col,
+             xpd = xpd, ...)
     }
     invisible(x)
 }

Modified: pkg/vegan/inst/ChangeLog
===================================================================
--- pkg/vegan/inst/ChangeLog	2011-03-19 19:31:32 UTC (rev 1549)
+++ pkg/vegan/inst/ChangeLog	2011-03-22 13:54:07 UTC (rev 1550)
@@ -4,6 +4,9 @@
 
 Version 1.18-25 (opened March 10, 2011)
 
+	* ordilabel: gained argument 'xpd' to draw labels outside the plot
+	region. 
+
 	* ordisurf: got a formula interface as an alternative to define
 	the model. Also now accepts `gam()` argument `select` to add an
 	extra penalty to smooths so they can be penalized to zero (i.e.

Modified: pkg/vegan/man/ordilabel.Rd
===================================================================
--- pkg/vegan/man/ordilabel.Rd	2011-03-19 19:31:32 UTC (rev 1549)
+++ pkg/vegan/man/ordilabel.Rd	2011-03-22 13:54:07 UTC (rev 1550)
@@ -11,7 +11,7 @@
 
 \usage{
 ordilabel(x, display, labels, choices = c(1, 2), priority, cex = 0.8,
-    fill = "white", border = NULL, col = NULL, ...)
+    fill = "white", border = NULL, col = NULL, xpd = TRUE, ...)
 }
 
 \arguments{
@@ -31,7 +31,9 @@
   \item{border}{The colour and visibility of the border of the label as
     defined in \code{\link{polygon}}).}
   \item{col}{Text colour. Default \code{NULL} will give the value of
-    \code{border} or \code{par("fg")} if \code{border} is \code{NULL}.} 
+    \code{border} or \code{par("fg")} if \code{border} is \code{NULL}.}
+  \item{xpd}{Draw labels also outside the plot region (see 
+    \code{\link{par}}).} 
   \item{\dots}{Other arguments (passed to \code{\link{text}}). }
 }