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

时间:2018-06-20 21:29:35

标签: r shiny

我希望在自己的一个闪亮应用程序中自定义数据表的输出。我只想将“下一页”按钮保留在数据表的底部,但无法弄清楚该怎么做。我知道您可以使用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)

1 个答案:

答案 0 :(得分: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)