R 修改数据表搜索

我需要更改当应用程序呈现datatable时默认显示在浏览器中的搜索输入。 搜索输入在datatable中查找数据，并根据用户输入显示相应的信息过滤。 问题是Shiny默认实现了这一点

我想实现一个类似于搜索的输入，但是我不想过滤数据，而是希望分页显示用户在输入中写入的页面

---

有什么想法吗？

有关快速解决方案，请参见下文。我隐藏了当前的功能，并在上面实现了一个新的功能

library(DT)
shinyApp(
  ui = fluidPage(
    tags$head(
      # hides the default search functionality
      tags$style(
        HTML(".dataTables_filter, .dataTables_info { display: none; }")
      )
    ),
    fluidRow(
      column(10, 
             ""
      ), 
      column(2,              
             # adding new page filter
             numericInput("page", "Page", 1, min = 1)
      ),
      column(12,
             dataTableOutput('table')
      )
    )
  ),
  server = function(input, output) {

    output$table <- renderDataTable(iris, options = list(pageLength = 5))

    # using new page filter
    observeEvent(input$page, {
      dataTableProxy("table") %>% selectPage(input$page)
    })
  }
)

库（DT）
shinyApp(
ui=fluidPage(
标签$head(
#隐藏默认的搜索功能
标签$style(
HTML（“.dataTables\u filter，.dataTables\u info{display:none；}”）
)
),
fluidRow(
第（10）栏，
""
), 
第（2）栏，
#添加新页面筛选器
数字输入（“第页”，“第页”，1，最小值=1）
),
第（12）栏，
dataTableOutput（'表'）
)
)
),
服务器=功能（输入、输出）{
输出$table%selectPage（输入$page）
})
}
)

当然，替换实际的DOM元素会很好。那么javascript将是一条出路。您可以找到元素并覆盖功能，也可以删除元素并替换它。一个很好的起点是：。但我认为，就所需的时间而言，这可能是一种过度消耗