Close #1584: Prevent multiple selectize/dynamic color brushes from being rendered in shiny

Author: cpsievert

R/utils.R

@@ -379,7 +379,7 @@ supply_highlight_attrs <- function(p) {
 
     # include one selectize dropdown per "valid" SharedData layer
     if (isTRUE(p$x$highlight$selectize)) {
-      p$x$selectize[[new_id()]] <- list(
+      p$x$selectize[[i]] <- list(
         items = data.frame(value = k, label = k), group = i
       )
     }

inst/htmlwidgets/plotly.js

@@ -74,7 +74,7 @@ HTMLWidgets.widget({
     });
 
       // inject a "control panel" holding selectize/dynamic color widget(s)
-    if (x.selectize || x.highlight.dynamic && !instance.plotly) {
+    if ((x.selectize || x.highlight.dynamic) && !instance.plotly) {
       var flex = document.createElement("div");
       flex.class = "plotly-crosstalk-control-panel";
       flex.style = "display: flex; flex-wrap: wrap";