[Analogue-commits] r360 - pkg/R

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

Author: gsimpson
Date: 2013-09-30 18:06:04 +0200 (Mon, 30 Sep 2013)
New Revision: 360

Modified:
   pkg/R/plot.sppResponse.R
Log:
allow logical vectors for which

Modified: pkg/R/plot.sppResponse.R
===================================================================
--- pkg/R/plot.sppResponse.R	2013-08-26 21:59:58 UTC (rev 359)
+++ pkg/R/plot.sppResponse.R	2013-09-30 16:06:04 UTC (rev 360)
@@ -12,6 +12,10 @@
   if (noMain) {
     nams <- names(x)
   }
+
+  ## process which - this could be logical
+  if (is.logical(which))
+      which <- which(which) ## yeah, really!
   
   for (i in which) {
     ox <- x[[i]]$observed$gradient