[Phylobase-commits] r589 - pkg/R

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

Author: regetz
Date: 2009-08-25 22:19:56 +0200 (Tue, 25 Aug 2009)
New Revision: 589

Modified:
   pkg/R/subset.R
Log:
redefined extractTree to use (implicit) phylo4d->phylo4 coerce method


Modified: pkg/R/subset.R
===================================================================
--- pkg/R/subset.R	2009-08-25 03:20:50 UTC (rev 588)
+++ pkg/R/subset.R	2009-08-25 20:19:56 UTC (rev 589)
@@ -117,10 +117,7 @@
               return(res)
           })
 
-## coerce phylo4d to phylo4 -- on purpose, so no warning
-
+## extract the phylo4 part of phylo4d; relies on implicit coerce method
 extractTree <- function(from) {
-    phylo4(from at edge, edge.length = from at edge.length,
-           tip.label = from at tip.label, node.label = from at node.label,
-           edge.label = from at edge.label, order = from at order)
+    as(from, "phylo4")
   }