[Phylobase-commits] r382 - pkg/R

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

Author: pdc
Date: 2008-12-21 05:41:44 +0100 (Sun, 21 Dec 2008)
New Revision: 382

Modified:
   pkg/R/methods-phylo4.R
Log:
allow match args

Modified: pkg/R/methods-phylo4.R
===================================================================
--- pkg/R/methods-phylo4.R	2008-12-21 04:36:53 UTC (rev 381)
+++ pkg/R/methods-phylo4.R	2008-12-21 04:41:44 UTC (rev 382)
@@ -380,7 +380,8 @@
     } else {stop(paste("Method for", order, "not implemented"))}
 }
 
-setMethod("reorder", signature(x = 'phylo4'), function(x, order = 'preorder') {
+setMethod("reorder", signature(x = 'phylo4'), 
+    function(x, order = c('preorder', 'postorder')) {
     ## call orderIndex and use that index to order edges, labels and lengths
     order   <- match.arg(order)
     index   <- orderIndex(x, order)