@@ -10,3 +10,4 @@ README.Rmd

 mkdocs

 docs

 logo.png.github

+.github

@@ -1,5 +1,6 @@

 CHANGES IN VERSION 1.7.9

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

+ o fixed geom_range to support height_0.95_HPD <2017-03-03, Fri>

  o fixed geom_tiplab(geom='label') <2017-03-02, Thu>

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

@@ -16,7 +16,11 @@ geom_range <- function(range="height_0.95_HPD", ...) {

     default_aes <- aes_(x=~x, y=~y, xend=~x, yend=~y)

-    mapping <- modifyList(default_aes, aes_string(branch.length="branch.length", label=range))

+    if (grepl("^height", range)) {

+        mapping <- modifyList(default_aes, aes_string(branch.length="height", label=range))

+    } else {

+        mapping <- modifyList(default_aes, aes_string(branch.length="branch.length", label=range))

+    }

     layer(

         stat = StatRange,

@@ -26,7 +30,8 @@ geom_range <- function(range="height_0.95_HPD", ...) {

         position = position,

         show.legend=show.legend,

         inherit.aes = inherit.aes,

-        params = list(na.rm = na.rm, ...),

+        params = list(na.rm = na.rm,

+                      ...),

         check.aes = FALSE

     )

@@ -42,6 +47,7 @@ StatRange <- ggproto("StatRange", Stat,

                          rr2 <- strsplit(rr, split=',') %>% do.call('rbind', .)

                          rr2 <- matrix(as.numeric(rr2), ncol=2, byrow=FALSE)

                          rr2 <- rr2 + df$x - df$branch

+

                          data.frame(x = rr2[,1],

                                     xend = rr2[,2],

                                     y = df$y,

@@ -4,7 +4,7 @@ ggtree: an R package for visualization and annotation of phylogenetic trees with

 [![releaseVersion](https://img.shields.io/badge/release%20version-1.6.9-green.svg?style=flat)](https://bioconductor.org/packages/ggtree) [![develVersion](https://img.shields.io/badge/devel%20version-1.7.9-green.svg?style=flat)](https://github.com/GuangchuangYu/ggtree) [![Bioc](http://www.bioconductor.org/shields/years-in-bioc/ggtree.svg)](https://www.bioconductor.org/packages/devel/bioc/html/ggtree.html#since) [![total](https://img.shields.io/badge/downloads-22704/total-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree) [![month](https://img.shields.io/badge/downloads-1894/month-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree) <img src="logo.png" align="right" />

-[![Project Status: Active - The project has reached a stable, usable state and is being actively developed.](http://www.repostatus.org/badges/latest/active.svg)](http://www.repostatus.org/#active) [![codecov](https://codecov.io/gh/GuangchuangYu/ggtree/branch/master/graph/badge.svg)](https://codecov.io/gh/GuangchuangYu/ggtree) [![Last-changedate](https://img.shields.io/badge/last%20change-2017--03--02-green.svg)](https://github.com/GuangchuangYu/ggtree/commits/master) [![GitHub forks](https://img.shields.io/github/forks/GuangchuangYu/ggtree.svg)](https://github.com/GuangchuangYu/ggtree/network) [![GitHub stars](https://img.shields.io/github/stars/GuangchuangYu/ggtree.svg)](https://github.com/GuangchuangYu/ggtree/stargazers) [![Awesome](https://cdn.rawgit.com/sindresorhus/awesome/d7305f38d29fed78fa85652e3a63e154dd8e8829/media/badge.svg)](https://awesome-r.com/#awesome-r-graphic-displays)

+[![Project Status: Active - The project has reached a stable, usable state and is being actively developed.](http://www.repostatus.org/badges/latest/active.svg)](http://www.repostatus.org/#active) [![codecov](https://codecov.io/gh/GuangchuangYu/ggtree/branch/master/graph/badge.svg)](https://codecov.io/gh/GuangchuangYu/ggtree) [![Last-changedate](https://img.shields.io/badge/last%20change-2017--03--03-green.svg)](https://github.com/GuangchuangYu/ggtree/commits/master) [![GitHub forks](https://img.shields.io/github/forks/GuangchuangYu/ggtree.svg)](https://github.com/GuangchuangYu/ggtree/network) [![GitHub stars](https://img.shields.io/github/stars/GuangchuangYu/ggtree.svg)](https://github.com/GuangchuangYu/ggtree/stargazers) [![Awesome](https://cdn.rawgit.com/sindresorhus/awesome/d7305f38d29fed78fa85652e3a63e154dd8e8829/media/badge.svg)](https://awesome-r.com/#awesome-r-graphic-displays)

 [![platform](http://www.bioconductor.org/shields/availability/devel/ggtree.svg)](https://www.bioconductor.org/packages/devel/bioc/html/ggtree.html#archives) [![Build Status](http://www.bioconductor.org/shields/build/devel/bioc/ggtree.svg)](https://bioconductor.org/checkResults/devel/bioc-LATEST/ggtree/) [![Linux/Mac Travis Build Status](https://img.shields.io/travis/GuangchuangYu/ggtree/master.svg?label=Mac%20OSX%20%26%20Linux)](https://travis-ci.org/GuangchuangYu/ggtree) [![AppVeyor Build Status](https://img.shields.io/appveyor/ci/Guangchuangyu/ggtree/master.svg?label=Windows)](https://ci.appveyor.com/project/GuangchuangYu/ggtree) [![install with bioconda](https://img.shields.io/badge/install%20with-bioconda-green.svg?style=flat)](http://bioconda.github.io/recipes/bioconductor-ggtree/README.html)