Update numeric slider values on updateSearch

[mikmart]

Fixes #1110.

library(shiny)
library(DT)

ui <- fluidPage(
  actionButton("set_search", "Set column search"),
  tags$hr(),
  DTOutput("iris")
)

server <- function(input, output, session) {
  output$iris <- renderDT(
    datatable(iris, filter = "top")
  )

  proxy <- dataTableProxy("iris")
  observeEvent(input$set_search, {
    updateSearch(proxy, keywords = list(columns = c("", "5.0 ... 6.0")))
  })
}

shinyApp(ui, server)

[CLAassistant]

All committers have signed the CLA.

[mikmart]

I changed the approach to use a custom event updatesearch so that each search field can handle updates from R as it wishes. This was to avoid the unnecessary searchColumn() call while also bypassing the input throttling for character columns.

Would you have another look @yihui? In particular I'm wondering if the custom event name should be namespaced somehow.

[mikmart]

Yeah that makes sense. I can pivot to that approach.

[mikmart]

Ready for a review again @yihui.