如何切换 Shiny DataTable 中显示的页面？答案

【问题标题】：How do I switch the page displayed in a Shiny DataTable?如何切换 Shiny DataTable 中显示的页面？
【发布时间】：2016-06-17 23:16:26
【问题描述】：

我可以使用回调参数更改最初显示在 DataTable 中的页面，例如output$testTable <- DT::renderDataTable(iris, callback = JS('table.page(2).draw(false);')) 但是如何更改页面以响应用户输入？有没有类似于selectRows 使用dataTableProxy 的东西？

【问题讨论】：

可以使用javascript来完成。这个例子只是简单地使用javascript从服务器发送信息到js信息消息，但是你可以通过在UI端写一个不同的js函数来做更多有趣的事情，见：shiny.rstudio.com/gallery/server-to-client-custom-messages.html

标签： r pagination shiny user-input dt

【解决方案1】：

这里是如何做到这一点。您需要创建一个自定义 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)

    })    
  }
)

【讨论】：