makeLabel.multiPhylo <- function(x, tips = TRUE, nodes = TRUE, ...)
{
- y <- attr("TipLabel", x)
+ y <- attr(x, "TipLabel")
if (is.null(y)) {
for (i in 1:length(x))
x[[i]] <- makeLabel.phylo(x[[i]], tips = tips, nodes = nodes, ...)
} else {
- attr("TipLabel", x) <- makeLabel.character(y, ...)
+ attr(x, "TipLabel") <- makeLabel.character(y, ...)
}
x
}