[Phylobase-commits] r585 - in pkg: R data inst/unitTests man

[Jim Regetz]

noreply at r-forge.r-project.org wrote:
> Author: bbolker
> Date: 2009-08-25 02:59:46 +0200 (Tue, 25 Aug 2009)
> New Revision: 585
> 
>  ## first arg is a phylo
>  setMethod("phylo4", c("phylo"), function(x, check.node.labels=c("keep",
> -  "drop")){
> +  "drop"), annote=list()){
>  
>    check.node.labels <- match.arg(check.node.labels)
>    if (check.node.labels == "drop") x$node.label <- NULL
> +  ## FIXME: annote is silently dropped here
>    res <- as(x, "phylo4")
>  

Seems like the 'annote' argument is not so much getting dropped as just 
never getting inserted. Why not just add:

res at annote <- annote

?

Jim