R 如何切换闪亮的数据表中显示的页面？

我可以使用回调参数更改DataTable中最初显示的页面，例如

output$testTable，下面是如何操作。您需要创建一个自定义js函数，然后像这样从服务器调用它（在本例中，按钮将页面更改为随机页面）：

库（闪亮）
图书馆（DT）
新亚普（
ui=fluidPage(
主面板（DT:：dataTableOutput（“测试”），
操作按钮（“btn”，“按我”），
标签$script（HTML）(
.addCustomMessageHandler（'pager'，函数（第页）{
$（'#'+'test'）.find（'table'）.DataTable（）.page（page）.draw（false）；
})"
)))), 
服务器=函数（输入、输出、会话）{
output$test可以使用javascript完成。此示例仅使用javascript将信息从服务器发送到js info消息，但您可以通过在UI端编写不同的js函数来完成更有趣的事情，请参见：
library(shiny) 
library(DT)

shinyApp( 
  ui = fluidPage(
    mainPanel(DT::dataTableOutput("test"),
              actionButton("btn","Press me"),
              tags$script(HTML(
    "Shiny.addCustomMessageHandler('pager',function(page) {
      $('#'+'test').find('table').DataTable().page(page).draw(false);
    })"
                )))), 
  server = function(input, output,session) { 


    output$test <- DT::renderDataTable({
     mtcars

    })
    observeEvent(input$btn,{

      page <- sample(1:4,1)

      session$sendCustomMessage("pager",page-1)

    })    
  }
)