@@ -1,7 +1,7 @@

 Package: ggtree

 Type: Package

 Title: an R package for visualization of tree and annotation data

-Version: 3.5.0.902

+Version: 3.5.1

 Authors@R: c(

        person("Guangchuang", "Yu",     email = "guangchuangyu@gmail.com", role = c("aut", "cre", "cph"), 

             comment = c(ORCID = "0000-0002-6485-8781")),

@@ -25,10 +25,10 @@

 -->

-# ggtree 3.5.0.902

+# ggtree 3.5.1

++ `as.phylo.hclust2` to correct edge length as displayed in `stats:::plot.hclust` (2022-06-21, Tue)

 + add outline to nodepies (2022-06-20, Mon, #506)

-+ `update_edge_hclust()` to adjust edge length of a `phylo` object converted from a `hclust` object via `ape::as.phylo()` (2022-06-05, Sun)

 + new 'slanted' layout for `branch.length = 'none'` (2022-04-29, Fri, #497)

     - only works for Cartesian coordination, that means it will not work for `layout = 'radial'`

@@ -134,12 +134,16 @@ fortify.phylo4 <- function(model, data,

                            right     = FALSE,

                            mrsd      = NULL,

                            ...) {

-    if (class(model) %in% c("dendrogram", "agnes", "diana", "twins")) {

+    if (inherits(model, c("dendrogram", "agnes", "diana", "twins"))) {

         model <- stats::as.hclust(model)

     }

-    

-    phylo <- as.phylo(model)

+    if (inherits(model, "hclust")) {

+        phylo <- as.phylo.hclust2(model)

+    } else {

+        phylo <- as.phylo(model)

+    }

+

     df <- fortify.phylo(phylo, data,

                         layout, ladderize, right, mrsd=mrsd, ...)

     scaleY(phylo, df, yscale, layout, ...)

@@ -1319,8 +1319,10 @@ edge2vec <- function(tr) {

 }

-# tr is converted from h via ape::as.phylo

-update_edge_hclust <- function(tr, h) {

+

+as.phylo.hclust2 <- function(x, hang=0.1, ...) {

+  h <- x

+  tr <- ape::as.phylo(x)

   ev <- edge2vec(tr)

   #extract_inode_hclust_item <- function(h, i, ev) {

@@ -1354,7 +1356,7 @@ update_edge_hclust <- function(tr, h) {

   pn <- ev[nodes]

   pn[pn == 0] <- treeio::rootnode(tr)

   len[nodes] <- len[pn] - len[nodes]

-  len[1:Ntip(tr)] <- max(h$height)/10

+  len[1:Ntip(tr)] <- hang #max(h$height)/10

   tr$edge.length <- len[tr$edge[,2]]

   return(tr)