在进行全局搜索时,对于大型矩阵(50K行x 15列),DT非常慢

我有一个数据框,有50k行和15列,我试图用DT显示。在列过滤器框中搜索项目时,结果呈现得非常快。然而,当我引入全局搜索时,需要花费很长时间。

library(shiny)

data <- data.frame(a = 1:50000, b = 50000:1)
runApp(shinyApp(
  ui = fluidPage(
    DT::dataTableOutput("table")
  ),
  server = function(input, output, session) {
   output$table <-DT::renderDataTable(data,  filter = 'top', options = list(
  pageLength = 100)
  )
})

如果有任何建议能让这次全球搜索更快,我将不胜感激