Follow up to #1936: hash the selectize id so it can be used as an HTML id

Fixes this reprex https://github.com/ropensci/plotly/pull/1936\#issuecomment-820616142

Author: cpsievert

DESCRIPTION

@@ -42,7 +42,7 @@ Imports:
     vctrs,
     tibble,
     lazyeval (>= 0.2.0),
-    rlang,
+    rlang (>= 0.4.10),
     crosstalk,
     purrr,
     data.table,

R/utils.R

@@ -379,7 +379,9 @@ supply_highlight_attrs <- function(p) {
 
     # include one selectize dropdown per "valid" SharedData layer
     if (isTRUE(p$x$highlight$selectize)) {
-      p$x$selectize[[i]] <- list(
+      # Hash i (the crosstalk group id) so that it can be used
+      # as an HTML id client-side (i.e., key shouldn't contain spaces)
+      p$x$selectize[[rlang::hash(i)]] <- list(
         items = data.frame(value = k, label = k), group = i
       )
     }