Browse code

fixed #187

guangchuang yu authored on 21/07/2018 07:18:56
Showing 2 changed files

... ...
@@ -1,5 +1,7 @@
1 1
 # ggtree 1.13.2
2 2
 
3
++ xmax_adjust  in `viewClade` (2018-07-21, Sat)
4
+  - <https://github.com/GuangchuangYu/ggtree/issues/187>
3 5
 + update rd of `facet_plot` by adding description and example (2018-07-19, Thu)
4 6
 + order by y in `facet_plot` (2018-07-09, Mon)
5 7
 + `extend` parameter in `geom_cladelabel` and `geom_strip` supports specifying
... ...
@@ -46,7 +46,8 @@ viewClade <- function(tree_view=NULL, node, xmax_adjust=0) {
46 46
     attr(tree_view, 'viewClade_node') <- node
47 47
 
48 48
     ## tree_view+xlim(cpos$xmin, xmax + xmax_adjust) + ylim(cpos$ymin, cpos$ymax)
49
-    tree_view + coord_cartesian(xlim=c(cpos$xmin, xmax), ylim=c(cpos$ymin, cpos$ymax), expand=FALSE)
49
+    tree_view + coord_cartesian(xlim=c(cpos$xmin, xmax + xmax_adjust),
50
+                                ylim=c(cpos$ymin, cpos$ymax), expand=FALSE)
50 51
 }
51 52
 
52 53
 is.viewClade <- function(tree_view) {