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

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

Author: jarioksa
Date: 2011-09-24 19:30:52 +0200 (Sat, 24 Sep 2011)
New Revision: 1879

Modified:
   pkg/vegan/R/make.commsim.R
Log:
one tiny bit more user friendly definition of 'method'

Modified: pkg/vegan/R/make.commsim.R
===================================================================
--- pkg/vegan/R/make.commsim.R	2011-09-23 05:15:36 UTC (rev 1878)
+++ pkg/vegan/R/make.commsim.R	2011-09-24 17:30:52 UTC (rev 1879)
@@ -426,7 +426,6 @@
         return(names(algos))
     if (inherits(method, "commsim"))
         return(method)
-    if (method %in% names(algos))
-        return(algos[[method]])
-    stop("\"", method, "\" method not found")
+    method <- match.arg(method, sort(names(algos)))
+    algos[[method]]
 }