@@ -2,7 +2,7 @@ Package: ggtree

 Type: Package

 Title: an R package for visualization and annotation of phylogenetic trees with

     their covariates and other associated data

-Version: 1.15.2

+Version: 1.15.3

 Authors@R: c(

 	   person("Guangchuang", "Yu",     email = "guangchuangyu@gmail.com", role = c("aut", "cre", "cph"), comment = c(ORCID = "0000-0002-6485-8781")),

 	   person("Tommy Tsan-Yuk", "Lam", email = "tylam.tommy@gmail.com",   role = c("aut", "ths")),

@@ -1,3 +1,8 @@

+# ggtree 1.15.3

+

++ bug fixed for setting `branch.length="none"` in unrooted layouts (2018-12-26, Wed)

+  - bug introduced in <https://github.com/GuangchuangYu/ggtree/pull/201>

+

 # ggtree 1.15.2

 + compatible with `tibble` v=2.0.0 (2018-11-29, Thu)

@@ -46,10 +46,12 @@ layoutEqualAngle <- function(model, branch.length ){

       }

   }

-  if (branch.length == "none") {

+  if (is.null(tree$edge.length) || branch.length == "none") {

       tree <- set_branch_length_cladogram(tree)

   }

-  

+  brlen <- numeric(getNodeNum(tree))

+  brlen[tree$edge[,2]] <- tree$edge.length

+

   root <- getRoot(tree)

   ## Convert Phylo tree to data.frame.

   ## df <- as.data.frame.phylo_(tree)

@@ -71,6 +73,9 @@ layoutEqualAngle <- function(model, branch.length ){

     df[root, "end"]   <- 2 # 360-degrees

     df[root, "angle"] <- 0 # Angle label.

+    df$branch.length <- brlen[df$node] # for cladogram

+

+

     N <- getNodeNum(tree)

     ## Get number of tips for each node in tree.