1. ggtree
  2. Commit c4a9912c0814b0bf321fd4686132817ba0646652
Browse code

compatible with tidyr 0.7.0

guangchuang yu authored on 03/08/2017 05:05:40
Showing 3 changed files
  • NEWS index 6f0d298..c12a0dc 100644
  • R/inset.R index df1cef6..4ce057c 100644
  • README.md index c11c380..4995ad9 100644
NEWS
History View file @ c4a9912
... ... 
@@ -1,5 +1,6 @@
1 1 
 CHANGES IN VERSION 1.9.3
2 2 
 ------------------------
3 
+ o update to using !! in tidyr::gather for compatible with tidyr 0.7.0 <2017-08-03, Thu>
3 4 
  o now geom_text2, geom_label2, geom_point2 and geom_segment2 work with ggplot2 <2017-08-01, Tue>
4 5 
  o update fortify.jplace to support number of placement (nplace) <2017-07-27, Thu>
5 6
R/inset.R
History View file @ c4a9912
... ... 
@@ -63,7 +63,7 @@ nodebar <- function(data, cols, color, alpha=1, position="stack") {
63 63 
     }
64 64 
     type <- value <- NULL
65 65
66 
-    ldf <- gather(data, type, value, cols) %>% split(., .$node)
66 
+    ldf <- gather(data, type, value, !! cols) %>% split(., .$node)
67 67 
     bars <- lapply(ldf, function(df) ggplot(df, aes_(x=1, y=~value, fill=~type)) +
68 68 
                                      geom_bar(stat='identity', alpha=alpha, position=position) +
69 69 
                                      theme_inset()
... ... 
@@ -96,7 +96,7 @@ nodepie <- function(data, cols, color, alpha=1) {
96 96 
     if (missingArg(color)) {
97 97 
         color <- NA
98 98 
     }
99 
-    ldf <- gather(data, type, value, cols) %>% split(., .$node)
99 
+    ldf <- gather(data, type, value, !! cols) %>% split(., .$node)
100 100 
     lapply(ldf, function(df) ggpie(df, y=~value, fill=~type, color, alpha))
101 101 
 }
102 102
README.md
History View file @ c4a9912
... ... 
@@ -6,7 +6,7 @@ ggtree: an R package for visualization and annotation of phylogenetic trees with
6 6
7 7 
 [![](https://img.shields.io/badge/release%20version-1.8.1-green.svg?style=flat)](https://bioconductor.org/packages/ggtree) [![](https://img.shields.io/badge/devel%20version-1.9.3-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) [![](https://img.shields.io/badge/download-17269/total-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree) [![](https://img.shields.io/badge/download-885/month-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree)
8 8
9 
-[![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--08--01-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)
9 
+[![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--08--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)
10 10
11 11 
 [![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) [![Backers on Open Collective](https://opencollective.com/ggtree/backers/badge.svg)](#backers) [![Sponsors on Open Collective](https://opencollective.com/ggtree/sponsors/badge.svg)](#sponsors)
12 12