datatable(
iris, extensions = 'Buttons', options = list(
dom = 'Bfrtip',
buttons = c('copy', 'csv', 'excel', 'pdf', 'print')
)
)
正如@divibisan所说，一种选择是使用renderDT()的server参数来控制下载按钮是仅下载当前行还是全部行。
如果您想要有一个下载按钮，那么这将很好地工作。但是如果您想要始终显示两个按钮，其中一个下载当前页面，另一个下载完整数据集，则可以使用以下代码：
library(shiny)
ui <- fluidPage(
DT::DTOutput("table")
)
server <- function(input, output, session) {
output$table <- DT::renderDT(server = FALSE, {
DT::datatable(
mtcars,
extensions = c("Buttons"),
options = list(
dom = 'Bfrtip',
buttons = list(
list(extend = "csv", text = "Download Current Page", filename = "page",
exportOptions = list(
modifier = list(page = "current")
)
),
list(extend = "csv", text = "Download Full Results", filename = "data",
exportOptions = list(
modifier = list(page = "all")
)
)
)
)
)
})
}
shinyApp(ui, server)
server=FALSE这一部分。 - Dhiraj请参考此答案：按钮：具有滚动条的下载按钮仅下载少量行
按钮导出的数据是全部数据还是仅可见数据，取决于在DT::renderDT函数调用中的server参数。如果server=FALSE，则按钮将导出表格中的所有数据；如果server=TRUE，则它们将只导出可见数据。
您可以使用变量设置server参数，以使其成为可选择的选项。
output$table <- DT::renderDT(server = input$download_all, {
DT::datatable( ... )
}
exportOptions: modifier: selected选项，它确定是仅下载选定的行（默认）还是所有行。您可以在此处阅读有关该选项的信息：https://datatables.net/extensions/buttons/examples/print/select.html
请注意，如果数据表非常大，使用server=FALSE可能会导致性能和内存问题。ui <- fluidPage(
title = "Examples of DataTables",
sidebarLayout(
mainPanel(
tabsetPanel(
id = 'dataset',
tabPanel("diamonds", DT::dataTableOutput("mytable1"))
)
)
)
)
server <- function(input, output) {
# choose columns to display
diamonds2 = diamonds[sample(nrow(diamonds), 1000), ]
output$mytable1 <- DT::renderDataTable({
DT::datatable(diamonds2,
extensions = 'Buttons',
options = list(
dom = 'Bfrtip',
buttons =
list(
list(
extend = 'csv',
buttons = c('csv'),
exportOptions = list(
modifiers = list(page = "current")
)
))
)
)
})
}
shinyApp(ui, server)
modifiers = list(page = "all") 除非 server = FALSE，否则没有任何有用的作用。正如 @DeanAttali 指出的那样，当 server = TRUE（默认值）时，我不认为 modifiers = list(page = "current") 实际上会改变任何默认行为。 - Giovanni Colitti
以下是修改后的可工作代码：library(shiny)
ui <- fluidPage(
DT::dataTableOutput("table")
)
server <- function(input, output, session) {
output$table <- DT::renderDataTable(server = FALSE, {
DT::datatable(
mtcars,
extensions = "Buttons",
filter = "top",
selection = "none", #this is to avoid select rows if you click on the rows
rownames = FALSE,
options = list(
scrollX = TRUE,
autoWidth = FALSE,
dom = 'Blrtip', # the important thing is that there is the l to allow for the lengthMenu
# https://dev59.com/xK7la4cB1Zd3GeqPkNyF
buttons = list(
# insert buttons with copy and print
# colvis includes the button to select and view only certain columns in the output table
# from https://rstudio.github.io/DT/extensions.html
I('colvis'), 'copy', 'print',
# code for the first dropdown download button
# this will download only the current page only (depends on the number of rows selected in the lengthMenu)
# using modifier = list(page = "current")
# only the columns visible will be downloaded using the columns:":visible" option from:
# https://dev59.com/Jbv4oIgBc1ULPQZFnMoh#72317607
list(
extend = 'collection',
buttons = list(
list(extend = "csv", filename = "page",exportOptions = list(
columns = ":visible",modifier = list(page = "current"))
),
list(extend = 'excel', filename = "page", title = NULL,
exportOptions = list(columns = ":visible",modifier = list(page = "current")))),
text = 'Download current page'),
# code for the second dropdown download button
# this will download the entire dataset using modifier = list(page = "all")
list(
extend = 'collection',
buttons = list(
list(extend = "csv", filename = "data",exportOptions = list(
columns = ":visible",modifier = list(page = "all"))
),
list(extend = 'excel', filename = "data", title = NULL,
exportOptions = list(columns = ":visible",modifier = list(page = "all")))),
text = 'Download all data')
),
# add the option to display more rows as a length menu
lengthMenu = list(c(10, 30, 50, -1),
c('10', '30', '50', 'All'))
),
class = "display"
)
})
}
shinyApp(ui, server)