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

 CHANGES IN VERSION 1.5.5

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

+ o update geom_tiplab2 according to angle change introduced by open_tree <2016-06-20, Mon>

  o bug fixed in collapse, now work with collapse a clade that contain a subclade that was already collapsed <2016-06-02-Thu>

  o bug fixed if time-scaled tree extend into the BCE. <2016-06-02, Thu>

    + as.Date won't work for BCE time.

@@ -72,9 +72,11 @@ geom_tiplab <- function(mapping=NULL, hjust = 0, align = FALSE, linetype = "dott

 geom_tiplab2 <- function(mapping=NULL, hjust=0, ...) {

     angle <- NULL

-    m1 <- aes(subset=(abs(angle) < 90), angle=angle)

-    m2 <- aes(subset=(abs(angle) >= 90), angle=angle+180)

-        

+    ## m1 <- aes(subset=(abs(angle) < 90), angle=angle)

+    ## m2 <- aes(subset=(abs(angle) >= 90), angle=angle+180)

+    m1 <- aes(subset=(angle < 90 | angle > 270), angle=angle)

+    m2 <- aes(subset=(angle >= 90 & angle <=270), angle=angle+180)

+    

     if (!is.null(mapping)) {

         m1 <- modifyList(mapping, m1)

         m2 <- modifyList(mapping, m2)