relay customdata in event_data()

Author: cpsievert

R/layers2traces.R

@@ -637,6 +637,7 @@ geom2trace.GeomPath <- function(data, params, p) {
     y = data[["y"]],
     text = uniq(data[["hovertext"]]),
     key = data[["key"]],
+    customdata = data[["customdata"]],
     frame = data[["frame"]],
     ids = data[["ids"]],
     type = "scatter",
@@ -667,6 +668,7 @@ geom2trace.GeomPoint <- function(data, params, p) {
     y = data[["y"]],
     text = if (isDotPlot) data[["key"]] else uniq(data[["hovertext"]]),
     key = data[["key"]],
+    customdata = data[["customdata"]],
     frame = data[["frame"]],
     ids = data[["ids"]],
     type = "scatter",
@@ -720,6 +722,7 @@ geom2trace.GeomBar <- function(data, params, p) {
     y = y,
     text = uniq(data[["hovertext"]]),
     key = data[["key"]],
+    customdata = data[["customdata"]],
     frame = data[["frame"]],
     ids = data[["ids"]],
     type = "bar",
@@ -747,6 +750,7 @@ geom2trace.GeomPolygon <- function(data, params, p) {
     y = data[["y"]],
     text = uniq(data[["hovertext"]]),
     key = data[["key"]],
+    customdata = data[["customdata"]],
     frame = data[["frame"]],
     ids = data[["ids"]],
     type = "scatter",
@@ -778,6 +782,7 @@ geom2trace.GeomBoxplot <- function(data, params, p) {
     y = data[["y"]],
     hoverinfo = "y",
     key = data[["key"]],
+    customdata = data[["customdata"]],
     frame = data[["frame"]],
     ids = data[["ids"]],
     type = "box",
@@ -812,6 +817,7 @@ geom2trace.GeomText <- function(data, params, p) {
     text = data[["label"]],
     hovertext = data[["hovertext"]],
     key = data[["key"]],
+    customdata = data[["customdata"]],
     frame = data[["frame"]],
     ids = data[["ids"]],
     textfont = list(
@@ -850,6 +856,7 @@ geom2trace.GeomTile <- function(data, params, p) {
     z = matrix(g$fill_plotlyDomain, nrow = length(y), ncol = length(x), byrow = TRUE),
     text = matrix(g$hovertext, nrow = length(y), ncol = length(x), byrow = TRUE),
     key = data[["key"]],
+    customdata = data[["customdata"]],
     frame = data[["frame"]],
     ids = data[["ids"]],
     colorscale = setNames(colScale, NULL),
@@ -945,6 +952,7 @@ make_error <- function(data, params, xy = "x") {
     y = data[["y"]],
     text = uniq(data[["hovertext"]]),
     key = data[["key"]],
+    customdata = data[["customdata"]],
     frame = data[["frame"]],
     ids = data[["ids"]],
     type = "scatter",

inst/examples/shiny/event_data/app.R

@@ -15,10 +15,10 @@ server <- function(input, output, session) {
 
   output$plot <- renderPlotly({
     if (identical(input$plotType, "ggplotly")) {
-      p <- ggplot(mtcars, aes(x = mpg, y = wt, key = nms)) + geom_point()
+      p <- ggplot(mtcars, aes(x = mpg, y = wt, customdata = nms)) + geom_point()
       ggplotly(p) %>% layout(dragmode = "select")
     } else {
-      plot_ly(mtcars, x = ~mpg, y = ~wt, key = nms) %>%
+      plot_ly(mtcars, x = ~mpg, y = ~wt, customdata = nms) %>%
         layout(dragmode = "select")
     }
   })

inst/htmlwidgets/plotly.js

@@ -236,6 +236,10 @@ HTMLWidgets.widget({
           obj.z = pt.z;
         }
 
+        if (pt.hasOwnProperty("customdata")) {
+          obj.customdata = pt.customdata;
+        }
+        
         /* 
           TL;DR: (I think) we have to select the graph div (again) to attach keys...