improve demos (and don't force persistence unless it makes sense)

Author: cpsievert

R/highlight.R

@@ -60,13 +60,11 @@
 #' d <- SharedData$new(txhousing, ~city)
 #' p <- ggplot(d, aes(date, median, group = city)) + geom_line()
 #' gg <- ggplotly(p, tooltip = "city") 
-#' highlight(gg, persistent = TRUE, dynamic = TRUE)
+#' highlight(gg, dynamic = TRUE)
 #' 
 #' # supply custom colors to the brush 
 #' cols <- toRGB(RColorBrewer::brewer.pal(3, "Dark2"), 0.5)
-#' highlight(
-#'   gg, on = "plotly_hover", color = cols, persistent = TRUE, dynamic = TRUE
-#' )
+#' highlight(gg, on = "plotly_hover", color = cols, dynamic = TRUE)
 #' 
 #' # Use attrs_selected() for complete control over the selection appearance
 #' # note any relevant colors you specify here should override the color argument
@@ -76,10 +74,7 @@
 #'   marker = list(symbol = "x")
 #' )
 #' 
-#' highlight(
-#'  layout(gg, showlegend = TRUE),  
-#'  selected = s, persistent = TRUE
-#' )
+#' highlight(layout(gg, showlegend = TRUE), selected = s)
 #' 
 
 highlight <- function(p, on = "plotly_click", off, 

demo/crosstalk-highlight-binned-target-c.R

@@ -10,7 +10,4 @@ p2 <- plot_ly(tx, x = ~median, color = I("black")) %>%
 
 subplot(gg1, p2, titleX = TRUE, titleY = TRUE) %>% 
   layout(barmode = "overlay") %>%
-  highlight(
-    dynamic = TRUE, persistent = TRUE, 
-    selected = attrs_selected(opacity = 0.3)
-  )
+  highlight(dynamic = TRUE, selected = attrs_selected(opacity = 0.3))

demo/crosstalk-highlight-epl-2.R

@@ -37,7 +37,6 @@ gg <- ggplotly(p, width = 1050, height = 600, tooltip = "team")
 
 highlight(
   gg, 
-  persistent = TRUE,
   dynamic = TRUE, 
   selectize = TRUE,
   color = RColorBrewer::brewer.pal(12, "Paired")

demo/crosstalk-highlight-intro.R

@@ -46,9 +46,9 @@ p %>%
 
 # By default, all selections are transient, meaning prior selections are 
 # removed from the selection set before new selections are added. To prevent
-# prior selections from being removed, simply set the persistent argument to 
-# `TRUE`.
-highlight(p, on = "plotly_hover", persistent = TRUE)
+# prior selections from being removed, hold down the shift key while triggering
+# the event
+highlight(p, on = "plotly_hover")
 
 # Sometimes its useful to compare two or more different selection sets. 
 # For example, how do patients with a high response on visit 1 compare to those 
@@ -57,10 +57,10 @@ highlight(p, on = "plotly_hover", persistent = TRUE)
 # a colourpicker htmlwidget (@colourpicker) will appear just above the plotly 
 # visualization. At any given time, the value of this widget controls the 
 # color of new selection(s).
-highlight(p, on = "plotly_hover", persistent = TRUE, dynamic = TRUE)
+highlight(p, on = "plotly_hover", dynamic = TRUE)
 
 # By default, the colourpicker widget uses colors from the "Set1" 
 # colour brewer palette (@RColorBrewer), but any set of valid R colors can 
 # be supplied to the color argument.
 colors <- RColorBrewer::brewer.pal(4, "Dark2")
-highlight(p, on = "plotly_hover", color = colors, dynamic = TRUE, persistent = TRUE)
+highlight(p, on = "plotly_hover", color = colors, dynamic = TRUE)

demo/crosstalk-highlight-leaflet.R

@@ -5,9 +5,7 @@ library(crosstalk)
 library(htmltools)
 
 # leaflet should respect these "global" highlight() options
-options(
-  opacityDim = 0.5, persistent = TRUE
-)
+options(opacityDim = 0.5)
 
 sd <- SharedData$new(quakes)
 

demo/crosstalk-highlight-pipeline.R

@@ -24,4 +24,4 @@ p2 <- base %>%
  subplot(p1, p2, titleX = TRUE, widths = c(0.3, 0.7)) %>% 
   layout(margin = list(l = 120)) %>%
   hide_legend() %>%
-  highlight(dynamic = TRUE, persistent = TRUE, selectize = TRUE)
+  highlight(dynamic = TRUE, selectize = TRUE)