Add 'plotly_selecting' to acceptable 'on' events

Author: cpsievert

R/highlight.R

@@ -130,6 +130,7 @@ highlight <- function(p, on = "plotly_click", off,
   if (missing(off)) {
     off_default <- switch(
       on %||% "", 
+      plotly_selecting = ,
       plotly_selected = "plotly_deselect",
       plotly_click = "plotly_doubleclick",
       plotly_hover = "plotly_doubleclick"
@@ -148,7 +149,7 @@ highlight <- function(p, on = "plotly_click", off,
   # main (non-plotly.js) spec passed along to HTMLwidgets.renderValue()
   p$x$highlight <- list(
     # NULL may be used to disable on/off events
-    on = if (!is.null(on)) match.arg(on, paste0("plotly_", c("click", "hover", "selected"))),
+    on = if (!is.null(on)) match.arg(on, paste0("plotly_", c("click", "hover", "selected", "selecting"))),
     off = if (is.default(off)) off else if (!is.null(off)) match.arg(off, off_options),
     persistent = persistent,
     dynamic = dynamic,

R/utils.R

@@ -401,7 +401,7 @@ supply_highlight_attrs <- function(p) {
   # add HTML dependencies, set a sensible dragmode default, & throw messages
   if (hasKeys) {
     p$x$layout$dragmode <- p$x$layout$dragmode %|D|% 
-      default(switch(p$x$highlight$on %||% "", plotly_selected = "select") %||% "zoom")
+      default(switch(p$x$highlight$on %||% "", plotly_selected = "select", plotly_selecting = "select") %||% "zoom")
     if (is.default(p$x$highlight$off)) {
       message(
         sprintf(

demo/crosstalk-highlight-intro.R

@@ -18,24 +18,12 @@ p <- plot_ly(hd, x = ~visit, y = ~perc, color = I("black"),
   group_by(patient) %>%
   add_trace(mode = "markers+lines")
 
-# Since the data provided (hd) has a primary key definition of 'patient',
-# **plotly** knows to highlight any lines/markers matching the selected patient(s).
-# Go ahead and *click* on any marker and watch the entire 'patient' be highlighted
-layout(p, title = "Click on a marker to highlight that patient")
-
-# By default, the "on event" is "plotly_click", but we can change that to 
-# "plotly_selected", which corresponds to click and drag mouse events.
-p %>%
-  layout(title = "Click and drag to select patient") %>%
-  highlight("plotly_selected")
-
-
 # Plotly provides two types of drag modes that will trigger a "plotly_selected"
 # event: "lasso" and "select". You can change the dragmode interactively via 
 # the modebar and/or set the default dragmode via `layout()`.
 p %>%
   layout(title = "Click and drag to select patient", dragmode = "lasso") %>%
-  highlight("plotly_selected")
+  highlight("plotly_selecting")
 
 # The first argument of `highlight()`, `on`, sets the interaction type used 
 # trigger a "highlight selection". The second argument, `off`, sets the