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

 Package: ggtree

 Type: Package

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

-Version: 3.7.0

+Version: 3.7.0.001

 Authors@R: c(

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

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

@@ -26,6 +26,9 @@

 -->

+# ggtree 3.7.0.001

+

++ allows setting `options(clade_align = TRUE)` to align `geom_hilight()` layer and allows setting `options(clade_width_extend = 0.35)` to set the amount the width extension (in y-axis) of `geom_hilight()`. These two features is designed for `ggtreeDendro::geom_rect_subtree()` layer (2022-11-06, Sun)

 # ggtree 3.6.0

@@ -444,10 +444,12 @@ get_clade_position_ <- function(data, node, reverse=FALSE) {

         xmin <- min(sp.df$branch, na.rm=TRUE)

         xmax <- max(x, na.rm=TRUE)

     }

+

+    w <- getOption("clade_width_extend", default = 0.5)

     data.frame(xmin=xmin,

                xmax=xmax,

-               ymin=min(y, na.rm=TRUE) - 0.5,

-               ymax=max(y, na.rm=TRUE) + 0.5)

+               ymin=min(y, na.rm=TRUE) - w,

+               ymax=max(y, na.rm=TRUE) + w)

 }

 build_align_data <- function(data, align){

@@ -10,9 +10,13 @@ build_cladeids_df <- function(trdf, nodeids){

 build_cladeids_df2 <- function(trdf, nodeids){

     flagreverse <- check_reverse(data=trdf)

-    dat <- lapply(nodeids, function(i)get_clade_position_(data=trdf, node=i, reverse=flagreverse))

+    dat <- lapply(nodeids, function(i) get_clade_position_(data=trdf, node=i, reverse=flagreverse))

     dat <- do.call("rbind", dat)

     dat$clade_root_node <- nodeids

+    if (getOption("clade_align", default = FALSE)) {

+       dat$xmin <- min(dat$xmin)

+       dat$xmax <- max(dat$xmax)         

+    }

     return(dat)

 }