R Shiny DT-以编程方式输入搜索文本

Question

Is it possible to enter search box text through code? Required behaviour is: user enters text into textInput('search2', "Search 2") and this text replicates in the DT search box and search is performed on the DT.

library(shiny)
library(DT)
shinyApp(
  ui = fluidPage(
    textInput('search2', "Search 2"),
    DTOutput('dt')
  ),
  server = function(input, output, session) {
    output$dt = renderDT(iris)
  })

I do not want to filter the DT data another way (which I'm doing currently) - specifically I'm looking to use the search box functionality of DT.

Answer 1

You can create a datatableProxy of your DT, which allows to manipulate an existing DT instance. Use the function updateSearch :

library(shiny)
library(DT)    

shinyApp(
  ui = fluidPage(
    textInput('search2', "Search 2"),
    DTOutput('dt')
  ),
  server = function(input, output, session) {

    DTproxy <- dataTableProxy("dt")
    output$dt = renderDT(iris)

    observeEvent(input$search2, {
      updateSearch(DTproxy, keywords = list(global = input$search2, columns = NULL))
    })

  })

Answer 2

In addition to @shosaco his answer:

Hide the searchbox of the DataTable by adding the following CSS:

.dataTables_filter {
visibility: hidden;
}