Question

我希望在自己的一个闪亮应用程序中自定义数据表的输出。我只想将“下一页”按钮保留在数据表的底部，但无法弄清楚该怎么做。我知道您可以使用options = list（dom = ...）自定义输出，但无法弄清楚如何生成我想要的输出。这是只能使用Java脚本才能完成的事情吗？下面的示例中，我想保留上一个1、2等。谢谢！

library(DT)

library(shiny)

ui <- fluidPage(
  dataTableOutput(outputId = "dat")
)

server <- function(input, output, session) {

  tb = iris
  tb = datatable(tb, list(pageLength = 10))

  output$dat = renderDataTable({
      tb
  })

}

shinyApp(ui, server)

Answer 1

要了解所有数据表选项，请参阅this（数据表文档）。您感兴趣的选项是pagingType。所以就做

library(DT)

library(shiny)

ui <- fluidPage(
    DT::dataTableOutput(outputId = "dat")
)

server <- function(input, output, session) {

    tb = iris
    tb = DT::datatable(tb, list(pageLength = 10,pagingType = 'simple'))

    output$dat = DT::renderDataTable(
        {tb}
    )

}

shinyApp(ui, server)

限制数据表中的页面导航选项

1 个答案: