您可以创建一个
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))
})
})