Add support for new plotly_sunburstclick event, closes #1648

Author: cpsievert

R/shiny.R

@@ -117,7 +117,8 @@ event_data <- function(
     "plotly_hover", "plotly_unhover", "plotly_click", "plotly_doubleclick",
     "plotly_selected", "plotly_selecting", "plotly_brushed", "plotly_brushing", 
     "plotly_deselect", "plotly_relayout", "plotly_restyle", "plotly_legendclick", 
-    "plotly_legenddoubleclick", "plotly_clickannotation", "plotly_afterplot"
+    "plotly_legenddoubleclick", "plotly_clickannotation", "plotly_afterplot",
+    "plotly_sunburstclick"
   ),
   source = "A",
   session = shiny::getDefaultReactiveDomain(),
@@ -252,7 +253,8 @@ shiny_event_defaults <- function() {
     "plotly_clickannotation",
     "plotly_doubleclick", 
     "plotly_deselect", 
-    "plotly_afterplot"
+    "plotly_afterplot",
+    "plotly_sunburstclick"
   )
 }
 

inst/htmlwidgets/plotly.js

@@ -317,6 +317,7 @@ HTMLWidgets.widget({
 
       var eventDataFunctionMap = {
         plotly_click: eventDataWithKey,
+        plotly_sunburstclick: eventDataWithKey,
         plotly_hover: eventDataWithKey,
         plotly_unhover: eventDataWithKey,
         // If 'plotly_selected' has already been fired, and you click