various corrections

[ape.git] / R / read.nexus.R

diff --git a/R/read.nexus.R b/R/read.nexus.R
index 05acfcde7025139d52aebc40d1d279ba8733657f..54384561166cad5e3e272b36cc01d7e23a70bb3e 100644 (file)
--- a/R/read.nexus.R
+++ b/R/read.nexus.R
@@ -1,4 +1,4 @@
-## read.nexus.R (2008-06-24)
+## read.nexus.R (2008-07-04)
 
 ##   Read Tree File in Nexus Format
 
@@ -208,7 +208,7 @@ read.nexus <- function(file, tree.names = NULL)
     }
     if (Ntree == 1) {
         trees <- trees[[1]]
-        trees$tip.label <- TRANS[, 2]
+        if (translation) trees$tip.label <- TRANS[, 2]
     } else {
         if (!is.null(tree.names)) names(trees) <- tree.names
         if (translation) attr(trees, "TipLabel") <- TRANS[, 2]