[Phylobase-commits] r796 - pkg/R

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

Author: francois
Date: 2010-07-15 10:34:28 +0200 (Thu, 15 Jul 2010)
New Revision: 796

Modified:
   pkg/R/setAs-Methods.R
Log:
fix minor bug in the conversion between phylo and phylo4 objects

Modified: pkg/R/setAs-Methods.R
===================================================================
--- pkg/R/setAs-Methods.R	2010-04-25 20:37:55 UTC (rev 795)
+++ pkg/R/setAs-Methods.R	2010-07-15 08:34:28 UTC (rev 796)
@@ -32,7 +32,7 @@
     } else if (oldorder=="cladewise") "preorder"
     else oldorder
     attr(from,"order") <- NULL
-    newobj <- phylo4(from$edge, from$edge.length, from$tip.label,
+    newobj <- phylo4(from$edge, from$edge.length, unname(from$tip.label),
                      node.label = from$node.label,
                      edge.label = from$edge.label,
                      order = neworder)