r语言 - 使用过滤的数据帧 RShiny 下载 CSV

Question

>我制作了一个闪亮的应用程序，我正在使用一些值过滤数据集，然后我希望能够下载过滤后的数据集。但是，我正在努力理解如何将过滤后的数据集传递给 csv 下载器。这是一个非常大的数据集，因此无法使用渲染数据表中可用的按钮(我认为？有人对我如何做到这一点有任何想法吗？

示例应用：

### data ###
egDf <- data.frame(col1 = sample(letters,10000,replace=T), col2 = sample(letters,10000, replace=T))
### modules ###
chooseCol1UI <- function(id){
ns <- NS(id)
uiOutput(ns('chooserCol1'))
}
chooseCol1 <- function(input, output, session, data){
output$chooserCol1 <- renderUI({
ns <- session$ns
pickerInput(inputId = ns('chosenCol1'),
label = 'Col1',
choices = paste(sort(unique(egDf$col1))),
options = list(`actions-box` = TRUE),
multiple = TRUE)
})
return(reactive(input$chosenCol1))
}
csvDownloadUI <- function(id, label = "Download CSV") {
ns <- NS(id)
downloadButton(ns("downloadData"), label)
}
csvDownload <- function(input, output, session, data) {
output$downloadData <- downloadHandler(
filename = function() {
paste(names(data), Sys.Date(), '.csv', sep='')
},
content = function(file) {
write.csv(data, file, row.names = FALSE)
}
)
}
displayTableUI <- function(id){
ns <- NS(id)
DT::dataTableOutput(ns('displayer'))
}
displayTable <- function(input, output, session, data, col1Input){
output$displayer <- DT::renderDataTable(egDf %>% filter(col1 %in% col1Input()))
}
### server ###
server <- function(input,output){
chosenCol1 <- callModule(chooseCol1,
id = 'appChooseCol1', data = egDf)
callModule(module = displayTable, id = "appDisplayTable",
col1Input = chosenCol1)
}
### ui ###
ui <- fluidPage(
sidebarPanel(
chooseCol1UI("appChooseCol1")),
mainPanel(displayTableUI("appDisplayTable")))
### app ###
shinyApp(ui = ui, server = server)

Answer 1

几年前，我用这样的按钮制作了一个应用程序。就我而言，我在传递给downloadHandler的server.R文件中创建了一个反应式表达式。

这是应用程序，这是github代码。转到server.R文件并搜索"下载"字符串。

在应用程序中，您会在"数据"选项卡中找到一个蓝色的下载按钮。该应用程序允许您应用适用于数据表中的过滤器，您可以通过按钮下载。

编辑：这是感兴趣的代码的服务器部分：

#data download button
output$idDwn <- downloadHandler(
filename = function() { 
paste('uCount ', format(Sys.time(), "%Y-%m-%d %H.%M.%S"), '.csv', sep='')
},
content = function(file) {
write.csv(datasetInputFilters(), file)
}
)

Answer 2

我会创建eventReactive函数来允许您col1Input.

# Reactive function based on input
react_df <- eventReactive(input$chosenCol1, {
return(egDf %>% filter(col1 %in% input$chosenCol1))
})
output$displayer <- renderDataTable(react_df())
# Download box
output$downloadData <- downloadHandler(
filename = function() {
paste("data-", Sys.Date(), ".csv", sep="")
},
content = function(file) {
output_d <- react_df()
write.csv(output_d, file, row.names = FALSE)
}
)

Answer 3

我最近处理了这个问题，不幸的是该解决方案对我不起作用。但简单地使用writexl::write_xlsx()而不是write.csv()就足够了。