[Phylobase-commits] r463 - branches/fm-branch/R

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

Author: francois
Date: 2009-08-14 13:14:12 +0200 (Fri, 14 Aug 2009)
New Revision: 463

Modified:
   branches/fm-branch/R/treewalk.R
Log:
fix behavior of getNode in the case of non-matching labels

Modified: branches/fm-branch/R/treewalk.R
===================================================================
--- branches/fm-branch/R/treewalk.R	2009-08-14 01:33:09 UTC (rev 462)
+++ branches/fm-branch/R/treewalk.R	2009-08-14 11:14:12 UTC (rev 463)
@@ -33,8 +33,6 @@
     ## node labels
     nmNd <- labels(phy, "allnode")[irval]
     names(rval) <- nmNd
-    ## if node doesn't exist put node called as its name
-    names(rval)[is.na(nmNd)] <- node[is.na(nmNd)]
 
     ## deal with nodes that don't match
     if (any(is.na(rval))) {