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