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

Question

是否可以通过代码输入搜索框文字？ 必需的行为是：用户在textInput('search2', "Search 2")输入文本textInput('search2', "Search 2")并且此文本将在DT搜索框中复制并在DT上执行搜索。

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

我不想用其他方式（目前正在做的事情）过滤DT数据-特别是我想使用DT的搜索框功能。

Answer 1

您可以创建DT的datatableProxy ，从而可以操作现有的DT实例。 使用功能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

除了@shosaco他的答案：

通过添加以下CSS隐藏DataTable的搜索框：

.dataTables_filter {
visibility: hidden;
}