Browse code

fixed R check

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/ggtree@122173 bc3139a8-67e5-0310-9ffc-ced21a209358

Guangchuang Yu authored on 11/10/2016 01:31:56
Showing15 changed files

... ...
@@ -1,7 +1,7 @@
1 1
 Package: ggtree
2 2
 Type: Package
3 3
 Title: an R package for visualization and annotation of phylogenetic trees with their covariates and other associated data
4
-Version: 1.5.15
4
+Version: 1.5.16
5 5
 Author: Guangchuang Yu and Tommy Tsan-Yuk Lam
6 6
 Maintainer: Guangchuang Yu <guangchuangyu@gmail.com>
7 7
 Description: 'ggtree' extends the 'ggplot2' plotting system which implemented the grammar of graphics.
... ...
@@ -244,3 +244,4 @@ importFrom(stats4,plot)
244 244
 importFrom(tidyr,gather)
245 245
 importFrom(utils,download.file)
246 246
 importFrom(utils,modifyList)
247
+importFrom(utils,packageVersion)
... ...
@@ -1,3 +1,8 @@
1
+CHANGES IN VERSION 1.5.16
2
+------------------------
3
+ o fixed R check <2016-10-10, Mon>
4
+   + check.aes parameter is not available in release version of ggplot2 yet
5
+ 
1 6
 CHANGES IN VERSION 1.5.15
2 7
 ------------------------
3 8
  o check.aes for layers defined in ggtree <2016-10-07, Fri>
... ...
@@ -14,6 +14,7 @@
14 14
 #' @export
15 15
 #' @importFrom ggplot2 aes_
16 16
 #' @importFrom ggplot2 GeomRect
17
+#' @importFrom utils packageVersion
17 18
 #' @author Justin Silverman
18 19
 #' @references J. Silverman, et al. \emph{A phylogenetic transform enhances
19 20
 #'   analysis of compositional microbiota data}. (in preparation)
... ...
@@ -45,7 +46,7 @@ geom_balance <- function(node, fill="steelblue", color='white', alpha=.5, extend
45 46
                   extendto=extendto,
46 47
                   direction=1, 
47 48
                   na.rm = na.rm),
48
-    check.aes = FALSE
49
+    if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
49 50
   )
50 51
   l2 <- layer(
51 52
     stat=StatBalance,
... ...
@@ -63,7 +64,7 @@ geom_balance <- function(node, fill="steelblue", color='white', alpha=.5, extend
63 64
                   extendto=extendto,
64 65
                   direction=2,
65 66
                   na.rm = na.rm),
66
-    check.aes = FALSE
67
+    if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
67 68
   )
68 69
   return(c(l1,l2))
69 70
 }
... ...
@@ -116,7 +117,7 @@ stat_balance <- function(mapping=NULL, data=NULL, geom="rect",
116 117
                   extendto=extendto,
117 118
                   direction=1,
118 119
                   ...),
119
-    check.aes = FALSE
120
+    if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
120 121
   )
121 122
   l2 <- layer(
122 123
     stat=StatBalance,
... ...
@@ -134,7 +135,7 @@ stat_balance <- function(mapping=NULL, data=NULL, geom="rect",
134 135
                   extendto=extendto,
135 136
                   direction=2,
136 137
                   ...),
137
-    check.aes = FALSE
138
+    if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
138 139
   )
139 140
   return(c(l1,l2))
140 141
 }
... ...
@@ -129,7 +129,7 @@ stat_cladeText <- function(mapping=NULL, data=NULL,
129 129
                       na.rm  = na.rm,
130 130
                       parse  = parse,
131 131
                       ...),
132
-          check.aes = FALSE
132
+          if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
133 133
           )
134 134
 
135 135
 }
... ...
@@ -157,7 +157,7 @@ stat_cladeBar <- function(mapping=NULL, data=NULL,
157 157
                       align=align,
158 158
                       na.rm=na.rm,
159 159
                       ...),
160
-          check.aes = FALSE
160
+          if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
161 161
           )
162 162
 }
163 163
 
... ...
@@ -40,7 +40,7 @@ geom_hilight <- function(node, fill="steelblue", alpha=.5, extend=0, extendto=NU
40 40
                       extend=extend,
41 41
                       extendto=extendto,
42 42
                       na.rm = na.rm),
43
-        check.aes = FALSE
43
+        if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
44 44
     )
45 45
 }
46 46
 
... ...
@@ -67,7 +67,7 @@ geom_label2 <- function(mapping = NULL, data = NULL,
67 67
             na.rm = na.rm,
68 68
             ...
69 69
         ),
70
-        check.aes = FALSE
70
+        if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
71 71
     )
72 72
 }
73 73
 
... ...
@@ -126,7 +126,7 @@ geom_point2 <- function(mapping = NULL, data = NULL,
126 126
             na.rm = na.rm,
127 127
             ...
128 128
         ),
129
-        check.aes = FALSE
129
+        if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
130 130
     )
131 131
 }
132 132
 
... ...
@@ -68,7 +68,7 @@ geom_segment2 <- function(mapping = NULL, data = NULL,
68 68
             na.rm = na.rm,
69 69
             ...
70 70
         ),
71
-        check.aes = FALSE
71
+        if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
72 72
     )
73 73
 }
74 74
 
... ...
@@ -98,7 +98,7 @@ stat_stripText <- function(mapping=NULL, data=NULL,
98 98
                       na.rm=na.rm,
99 99
                       parse=parse,
100 100
                       ...),
101
-          check.aes = FALSE
101
+          if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
102 102
           )
103 103
     
104 104
 }
... ...
@@ -134,7 +134,7 @@ stat_stripBar <- function(mapping=NULL, data=NULL,
134 134
                       barextend=barextend,
135 135
                       na.rm=na.rm,
136 136
                       ...),
137
-          check.aes = FALSE
137
+          if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
138 138
           )
139 139
 
140 140
 }
... ...
@@ -31,7 +31,7 @@ geom_taxalink <- function(taxa1, taxa2, curvature=0.5, ...) {
31 31
                         curvature = curvature,
32 32
                         na.rm = na.rm,
33 33
                         ...),
34
-          check.aes = FALSE
34
+          if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
35 35
           )
36 36
 }
37 37
 
... ...
@@ -55,7 +55,7 @@ geom_text2 <- function(mapping = NULL, data = NULL,
55 55
           na.rm = na.rm,
56 56
           ...
57 57
         ),
58
-        check.aes = FALSE
58
+        if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
59 59
     )
60 60
 }
61 61
 
... ...
@@ -111,7 +111,7 @@ geom_tipsegment <- function(mapping=NULL, data=NULL,
111 111
           params = list(offset = offset,
112 112
                         na.rm = na.rm,
113 113
                         ...),
114
-          check.aes = FALSE
114
+          if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
115 115
           )
116 116
 }
117 117
 
... ...
@@ -47,7 +47,7 @@ stat_tree <- function(mapping=NULL, data=NULL, geom="segment", position="identit
47 47
                                lineend = lineend,
48 48
                                na.rm = na.rm,
49 49
                                ...),
50
-                   check.aes = FALSE
50
+                   if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
51 51
                    ),
52 52
              layer(data=data,
53 53
                    mapping=mapping,
... ...
@@ -60,7 +60,7 @@ stat_tree <- function(mapping=NULL, data=NULL, geom="segment", position="identit
60 60
                                lineend = lineend,
61 61
                                na.rm = na.rm,
62 62
                                ...),
63
-                   check.aes = FALSE
63
+                   if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
64 64
                    )
65 65
              )
66 66
     } else if (layout %in% c("slanted", "radial", "unrooted")) {
... ...
@@ -75,7 +75,7 @@ stat_tree <- function(mapping=NULL, data=NULL, geom="segment", position="identit
75 75
                           lineend = lineend,
76 76
                           na.rm = na.rm,
77 77
                           ...),
78
-              check.aes = FALSE
78
+              if (packageVersion('ggplot2') > '2.1.0') check.aes = FALSE
79 79
               )
80 80
     }
81 81
 }
... ...
@@ -1,9 +1,9 @@
1 1
 ggtree: an R package for visualization and annotation of phylogenetic trees with their covariates and other associated data
2 2
 ===========================================================================================================================
3 3
 
4
-[![releaseVersion](https://img.shields.io/badge/release%20version-1.4.20-green.svg?style=flat)](https://bioconductor.org/packages/ggtree) [![develVersion](https://img.shields.io/badge/devel%20version-1.5.15-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-14686/total-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree) [![month](https://img.shields.io/badge/downloads-1678/month-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree)
4
+[![releaseVersion](https://img.shields.io/badge/release%20version-1.4.20-green.svg?style=flat)](https://bioconductor.org/packages/ggtree) [![develVersion](https://img.shields.io/badge/devel%20version-1.5.16-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-14940/total-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree) [![month](https://img.shields.io/badge/downloads-1678/month-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree)
5 5
 
6
-[![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-2016--10--07-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)
6
+[![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-2016--10--10-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)
7 7
 
8 8
 [![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)
9 9
 
... ...
@@ -17,7 +17,7 @@ Please cite the following article when using `ggtree`:
17 17
 
18 18
 **G Yu**, DK Smith, H Zhu, Y Guan, TTY Lam<sup>\*</sup>. ggtree: an R package for visualization and annotation of phylogenetic trees with their covariates and other associated data. ***Methods in Ecology and Evolution***. *accepted*
19 19
 
20
-[![doi](https://img.shields.io/badge/doi-10.1111/2041--210X.12628-green.svg?style=flat)](http://dx.doi.org/10.1111/2041-210X.12628) [![citation](https://img.shields.io/badge/cited%20by-1-green.svg?style=flat)](https://scholar.google.com.hk/scholar?oi=bibs&hl=en&cites=7268358477862164627) [![Altmetric](https://img.shields.io/badge/Altmetric-168-green.svg?style=flat)](https://www.altmetric.com/details/10533079)
20
+[![doi](https://img.shields.io/badge/doi-10.1111/2041--210X.12628-green.svg?style=flat)](http://dx.doi.org/10.1111/2041-210X.12628) [![citation](https://img.shields.io/badge/cited%20by-1-green.svg?style=flat)](https://scholar.google.com.hk/scholar?oi=bibs&hl=en&cites=7268358477862164627) [![Altmetric](https://img.shields.io/badge/Altmetric-171-green.svg?style=flat)](https://www.altmetric.com/details/10533079)
21 21
 
22 22
 ------------------------------------------------------------------------
23 23
 
... ...
@@ -50,7 +50,7 @@ For details, please visit our project website, <https://guangchuangyu.github.io/
50 50
 
51 51
 ### Download stats
52 52
 
53
-[![download](http://www.bioconductor.org/shields/downloads/ggtree.svg)](https://bioconductor.org/packages/stats/bioc/ggtree/) [![total](https://img.shields.io/badge/downloads-14686/total-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree) [![month](https://img.shields.io/badge/downloads-1678/month-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree)
53
+[![download](http://www.bioconductor.org/shields/downloads/ggtree.svg)](https://bioconductor.org/packages/stats/bioc/ggtree/) [![total](https://img.shields.io/badge/downloads-14940/total-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree) [![month](https://img.shields.io/badge/downloads-1678/month-blue.svg?style=flat)](https://bioconductor.org/packages/stats/bioc/ggtree)
54 54
 
55 55
          +-------------------------+------------------------+-------------------------+----------------+
56 56
          |                                                                                         *   |