[Phylobase-commits] r417 - pkg/R

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

Author: bbolker
Date: 2008-12-31 21:12:50 +0100 (Wed, 31 Dec 2008)
New Revision: 417

Modified:
   pkg/R/methods-phylo4.R
Log:
  one more switch from "node" to "internal" for node-type options



Modified: pkg/R/methods-phylo4.R
===================================================================
--- pkg/R/methods-phylo4.R	2008-12-31 19:28:35 UTC (rev 416)
+++ pkg/R/methods-phylo4.R	2008-12-31 20:12:50 UTC (rev 417)
@@ -360,7 +360,7 @@
 
 setReplaceMethod("labels",
                  signature(object="phylo4", value="character"),
-   function(object, which = c("tip", "node", "allnode"), ..., value) {
+   function(object, which = c("tip", "internal", "allnode"), ..., value) {
        which <- match.arg(which)
        switch(which,
               ## If 'tip'
@@ -372,8 +372,8 @@
                       return(object)
                   }
               },
-              ## If 'node'
-              node = {
+              ## If 'internal'
+              internal = {
                   if(length(value) != nNodes(object))
                       stop("Number of node labels does not match number of internal nodes.")
                   else {