使用Action按鈕的Write.csv

Question

因此，基本上我正在嘗試進行一些小的設置，並且在完成某些分析之后，我想將生成的某些數據集導出到預定義的位置和預定義的名稱（基於之前選擇的輸入）。 為此，我使用了操作按鈕，當單擊該按鈕時，

observeEvent(input$export_button, {
        write.csv(input_dummy_data4ads,paste0("Dummy Files/",unique(input_dummy_data4ads$Dependent_Variable),"_", unique(input_dummy_data4ads$Model_Type),"_", unique(input_dummy_data4ads$AGM),".csv"),row.names = F,na="")
           }) 

這里的問題是，如果我單擊操作按鈕一次，它將生成所需的csv文件，並且也在所需的位置。 但是，一旦按下它，它的值將為1（input $ export_button），因此當我使用單選按鈕選擇一組新的輸入並基於此生成新的繪圖（通過單擊另一個操作按鈕）時，該應用會保存一個在所需位置使用新名稱（基於新輸入）的新csv文件。 我想做的是重置操作按鈕的值，以便僅在每次單擊該文件時才創建新的csv文件。

我試圖理解這一點，但無法將其合並到https://github.com/rstudio/shiny/issues/167

Answer 1

有閃亮的特定功能對於這一點，使用downloadButton在你的UI和downloadHandler 服務器 。

server.R：

output$export_data <- downloadHandler(
  filename = function() {
    paste0("Dummy Files/", unique(input_dummy_data4ads$Dependent_Variable), "_", unique(input_dummy_data4ads$Model_Type), "_", unique(input_dummy_data4ads$AGM), ".csv")
  },
  content = function(con) {
    write.csv(input_dummy_data4ads, con, row.names = F, na = "")
  }
)

ui.R：

downloadButton("export_data", "Export")