Browse code

comment out geom_tippoint2

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

Guangchuang Yu authored on 05/10/2016 09:44:05
Showing1 changed files

... ...
@@ -20,21 +20,25 @@ geom_tippoint <- function(mapping = NULL, data = NULL,
20 20
     geom_point2(mapping, data, position, na.rm, show.legend, inherit.aes, ...)
21 21
 }
22 22
 
23
-geom_tippoint2 <- function(mapping=NULL, hjust=0, ...) {
24
-    angle <- NULL
25
-    isTip <- NULL
26
-    m1 <- aes(subset=(isTip & (angle < 90 | angle > 270)), angle=angle)
27
-    m2 <- aes(subset=(isTip & (angle >= 90 & angle <=270)), angle=angle+180)
28
-
29
-    if (!is.null(mapping)) {
30
-        m1 <- modifyList(mapping, m1)
31
-        m2 <- modifyList(mapping, m2)
32
-    }
33
-
34
-    list(geom_tippoint(m1, hjust=hjust, ...),
35
-         geom_tippoint(m2, hjust=1-hjust, ...)
36
-         )
37
-}
23
+## angle is not supported,
24
+## https://github.com/GuangchuangYu/ggtree/issues/77
25
+##
26
+##
27
+## geom_tippoint2 <- function(mapping=NULL, hjust=0, ...) {
28
+##     angle <- NULL
29
+##     isTip <- NULL
30
+##     m1 <- aes(subset=(isTip & (angle < 90 | angle > 270)), angle=angle)
31
+##     m2 <- aes(subset=(isTip & (angle >= 90 & angle <=270)), angle=angle+180)
32
+
33
+##     if (!is.null(mapping)) {
34
+##         m1 <- modifyList(mapping, m1)
35
+##         m2 <- modifyList(mapping, m2)
36
+##     }
37
+
38
+##     list(geom_tippoint(m1, hjust=hjust, ...),
39
+##          geom_tippoint(m2, hjust=1-hjust, ...)
40
+##          )
41
+## }
38 42
 
39 43
 
40 44
 ##' add node point