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

 CHANGES IN VERSION 1.1.6

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

+ o update add_colorbar <2015-05-21, Thu>

  o add example of add_legend and gheatmap in vignette <2015-05-18, Mon> 

  o gheatmap implementation of gplot <2015-05-18, Mon>

  o add_legend for adding evolution distance legend <2015-05-18, Mon>

@@ -483,9 +483,13 @@ add_colorbar <- function(p, color, x=NULL, ymin=NULL, ymax=NULL, font.size=4) {

     i <- seq(1, length(y), length.out = 5) %>% round(0)

     offset <- diff(range(p$data$x))/40

+    barwidth <- offset/5

+    

     p + annotate("text", x=x+offset*2, y=y[i], label=legend[i,1], size=font.size) +

         annotate("rect", xmin=x, xmax=x+offset, ymin=ymin,

-                 ymax = ymax, fill=legend[,2], color=legend[,2]) 

+                 ymax = ymax, fill=legend[,2], color=legend[,2]) +

+                     annotate("segment", x=x, xend=x+barwidth, y=y[i], yend=y[i], color="white") +

+                         annotate("segment", x=x+offset-barwidth, xend=x+offset, y=y[i], yend=y[i], color="white")

 }

@@ -4,7 +4,7 @@

 \alias{gheatmap}

 \title{gheatmap}

 \usage{

-gheatmap(p, data, offset = 0, width, low = "green", high = "red",

+gheatmap(p, data, offset = 0, width = NULL, low = "green", high = "red",

   color = "white", colnames = TRUE, font.size = 4)

 }

 \arguments{