saptarshiguha

Keybase proof

I hereby claim:

• I am saptarshiguha on github.
• I am saptarshiguha (https://keybase.io/saptarshiguha) on keybase.
• I have a public key whose fingerprint is 25DE 89D9 73CD D007 EDFE 2998 E978 1A90 0BC5 F7AC

To claim this, I am signing this object:

saptarshiguha

Keybase proof

I hereby claim:

• I am saptarshiguha on github.
• I am saptarshiguha (https://keybase.io/saptarshiguha) on keybase.
• I have a public key whose fingerprint is 25DE 89D9 73CD D007 EDFE 2998 E978 1A90 0BC5 F7AC

To claim this, I am signing this object:

saptarshiguha

diff --git a/R/fig_layer.R b/R/fig_layer.R
index 9fdfbc9..76c91b1 100644
--- a/R/fig_layer.R
+++ b/R/fig_layer.R
@@ -13,7 +13,7 @@
 ## these are all internal functions called from make_glyph
 ## which is called from the various layer functions
 
-add_layer <- function(fig, spec, dat, lname, lgroup) {
+add_layer <- function(fig, spec, dat, lname, lgroup,tags=list()) {

saptarshiguha

a1 <- figure(width=1000,height=500,logo=NULL
           , tools=c("tap","hover","box_zoom","resize","reset")
           , xlab = "Commit Date", ylab="Performance Measure"
           , legend_location = "bottom_left"
           , xgrid=FALSE, ygrid=FALSE
           , webgl = FALSE)
for(i in seq_along(lvlShift$i)){
    D <- lvlShift[i,];
    lname <- sprintf("lvl%s",i)

saptarshiguha

## see http://bokeh.pydata.org/en/0.11.0/docs/user_guide/interaction.html#customjs-for-hover

library(shiny)
library(rbokeh)

D <- data.frame(x=c(2, 3, 5, 6, 8, 7),
                y=c(6, 4, 3, 8, 7, 5))
links <- list("0" = c(1,2),
              "1" = c(0, 3, 4),
              "2" = c(0,5),

saptarshiguha

library(shiny)
library(rbokeh)

D <- data.frame(x=c(2, 3, 5, 6, 8, 7),
                y=c(6, 4, 3, 8, 7, 5))
links <- list("0" = c(2,3),
              "1" = c(1, 4, 5),
              "2" = c(1,6),
              "3" = c(2,5),
              "4" = c(2,4),

saptarshiguha

library(shiny)
library(rbokeh)

D <- data.frame(x=c(2, 3, 5, 6, 8, 7),
                y=c(6, 4, 3, 8, 7, 5))
links <- list("0" = c(2,3),
              "1" = c(1, 4, 5),
              "2" = c(1,6),
              "3" = c(2,5),
              "4" = c(2,4),

saptarshiguha

library(shiny)
library(rbokeh)

D <- data.frame(x=c(2, 3, 5, 6, 8, 7),
                y=c(6, 4, 3, 8, 7, 5))
links <- list("0" = c(2,3),
              "1" = c(1, 4, 5),
              "2" = c(1,6),
              "3" = c(2,5),
              "4" = c(2,4),

saptarshiguha

diff --git a/NAMESPACE b/NAMESPACE
index 9de2c0f..ba5e122 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -72,6 +72,7 @@ export(x_axis)
 export(x_range)
 export(y_axis)
 export(y_range)
+export(shiny_callback)
 import(htmlwidgets)

saptarshiguha

library("shiny")
library("rbokeh")
p <- print_model_json
D <- data.frame(x=1:3,y=1:3,z="http://people.mozilla.com")

openURL <- rbokeh:::custom_callback(code='
console.log(cb_obj.get("data"));
console.log(cb_obj.get("selected")["1d"].indices )
', args=NULL)