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

 CHANGES IN VERSION 1.9.2

 ------------------------

+ o scaleClade works after calling viewClade <2017-07-20, Thu>

+   + https://groups.google.com/forum/?utm_medium=email&utm_source=footer#!topic/bioc-ggtree/QVSryszPaFY

  o gheatmap support handling collapsed tree <2017-06-29, Thu>

    + https://github.com/GuangchuangYu/ggtree/issues/137

@@ -42,10 +42,18 @@ viewClade <- function(tree_view=NULL, node, xmax_adjust=0) {

     cpos <- get_clade_position(tree_view, node=node)

     xmax <- ggplot_build(tree_view)$layout$panel_ranges[[1]]$x.range[2]

+    attr(tree_view, 'viewClade') <- TRUE

+    attr(tree_view, 'viewClade_node') <- node

+

     ## tree_view+xlim(cpos$xmin, xmax + xmax_adjust) + ylim(cpos$ymin, cpos$ymax)

     tree_view + coord_cartesian(xlim=c(cpos$xmin, xmax), ylim=c(cpos$ymin, cpos$ymax), expand=FALSE)

 }

+is.viewClade <- function(tree_view) {

+    x <- attr(tree_view, 'viewClade')

+    !is.null(x) && x

+}

+

 ##' collapse a clade

@@ -298,10 +306,18 @@ scaleClade <- function(tree_view=NULL, node, scale=1, vertical_only=TRUE) {

     df <- calculate_branch_mid(df)

     tree_view$data <- calculate_angle(df)

+

+

+    if (is.viewClade(tree_view)) {

+        vc_node <- attr(tree_view, 'viewClade_node')

+        tree_view <- viewClade(tree_view, vc_node)

+    }

+

     tree_view

 }

+

 reassign_y_from_node_to_root <- function(df, node) {

     root <- which(df$node == df$parent)

     pp <- df[node, "parent"]

@@ -11,7 +11,7 @@ html_preview: false

 #  ggtree: an R package for visualization and annotation of phylogenetic trees with their covariates and other associated data

 ```{r echo=FALSE, results="hide", message=FALSE}

-library("txtplot")

+#library("txtplot")

 library("badger")

 library("ypages")

 library("ggplot2")