[Phylobase-commits] r580 - pkg/R

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

Author: francois
Date: 2009-08-25 01:11:24 +0200 (Tue, 25 Aug 2009)
New Revision: 580

Modified:
   pkg/R/methods-phylo4.R
   pkg/R/readNexus.R
Log:
removed obsolete part of code

Modified: pkg/R/methods-phylo4.R
===================================================================
--- pkg/R/methods-phylo4.R	2009-08-24 22:47:46 UTC (rev 579)
+++ pkg/R/methods-phylo4.R	2009-08-24 23:11:24 UTC (rev 580)
@@ -210,13 +210,6 @@
     switch(type,
            tip = object at tip.label[as.character(nodeId(object, "tip"))],
            internal =  object at node.label,
-##                 if (hasNodeLabels(object)) {
-##                     object at node.label
-##                 }
-##                 else
-##                 {
-##                     ## FIXME? should this return object at node.label
-##                     return(character(0))
            allnode = c(object at tip.label, object at node.label)
            )
 })

Modified: pkg/R/readNexus.R
===================================================================
--- pkg/R/readNexus.R	2009-08-24 22:47:46 UTC (rev 579)
+++ pkg/R/readNexus.R	2009-08-24 23:11:24 UTC (rev 580)
@@ -60,7 +60,7 @@
                                 "check.node.labels because there are no ",
                                 "labels associated with the tree ", i)
                         check.node.labels <- "drop"
-                    }                  
+                    }
                     trees[[i]] <- phylo4d(intreesphylolist[[i]],
                                           check.node.labels=check.node.labels)
                 }