For https://github.com/rstudio/crosstalk/issues/16

set-values.R

library(crosstalk)
library(htmltools)

m <- SharedData$new(mtcars)

set_values <- function(w, sharedData, values) {
  script <- sprintf(
    "HTMLWidgets.addPostRenderHandler(function() { return crosstalk.group('%s').var('%s').set(%s); })",
    sharedData$groupName(), "filter", jsonlite::toJSON(values)
  )
  # TODO: attach htmlwidgets dependency to w?
  browsable(tagList(
    tags$head(tags$script(script)), w
  ))
}

s <- set_values(
  filter_select("id", "Select a car", m, m$key()), 
  m, row.names(mtcars)[1:4]
)

bscols(s, plotly::plot_ly(m, x = ~wt, y = ~mpg))