fixed a small bug in read.tree

[ape.git] / R / write.tree.R

diff --git a/R/write.tree.R b/R/write.tree.R
index 6bb4f825d06b5f3511065e80725eacd6507c4508..058565c1364fbe4c1437620e0f4740ae9ef934b1 100644 (file)
--- a/R/write.tree.R
+++ b/R/write.tree.R
@@ -83,8 +83,8 @@ write.tree <-
         }
     }
     n <- length(phy$tip.label)
-    if(tree.names){STRING <- paste(tname,"(",sep="")
-    }else STRING <- "("
+    STRING <-
+        if (output.tree.names) paste(tree.names, "(", sep = "") else "("
     br <- which(phy$edge[, 1] == n + 1)
     for (j in br) {
         desc <- phy$edge[j, 2]