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;
}