X-Git-Url: https://git.donarmstrong.com/?p=ape.git;a=blobdiff_plain;f=R%2Fplot.phylo.R;h=de7278e399a05c7ca5b51e2ec519e8ff0ab2784d;hp=e02ba3071726ffcd8e87a6f966aff4e786bfa0eb;hb=90f18c75d642f56b020bc6e0cdd0c5949c1d9a1d;hpb=68231d0918c593b45fdfa419c6a58e10b1c993b9

diff --git a/R/plot.phylo.R b/R/plot.phylo.R
index e02ba30..de7278e 100644
--- a/R/plot.phylo.R
+++ b/R/plot.phylo.R
@@ -1,4 +1,4 @@
-## plot.phylo.R (2010-01-04)
+## plot.phylo.R (2010-03-15)
 
 ##   Plot Phylogenies
 
@@ -431,7 +431,7 @@ phylogram.plot <- function(edge, Ntip, Nnode, xx, yy, horizontal,
         edge.color <- rep(edge.color, length.out = Nedge)
         edge.width <- rep(edge.width, length.out = Nedge)
         edge.lty <- rep(edge.lty, length.out = Nedge)
-        DF <- data.frame(edge.color, edge.width, edge.lty)
+        DF <- data.frame(edge.color, edge.width, edge.lty, stringsAsFactors = FALSE)
         color.v <- rep("black", Nnode)
         width.v <- rep(1, Nnode)
         lty.v <- rep(1, Nnode)