X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=R%2Fread.tree.R;h=efb311709460535abef52f0503d5c8e63360f9df;hb=21eb56120c84786502f24ff9c27b39d5badfe1f7;hp=d19acaef73edfa15054bb30a1158d647eaa5b06f;hpb=a03a8c554a6fde0dc4313688e3248bfae2e521e4;p=ape.git

diff --git a/R/read.tree.R b/R/read.tree.R
index d19acae..efb3117 100644
--- a/R/read.tree.R
+++ b/R/read.tree.R
@@ -38,7 +38,7 @@ tree.build <- function(tp)
         obj$edge.length <- as.numeric(tp[3])
         obj$Nnode <- 1L
         obj$tip.label <- tp[2]
-        if (length(tp) == 4) obj$node.label <- tp[4]
+        if (tp[4] != "") obj$node.label <- tp[4]
         class(obj) <- "phylo"
         return(obj)
     }