downloadhandler 在 R闪亮中保存文件后，有没有办法显示下载完成消息？

Question

我正在构建一个应用程序，用户可以从中下载 csv 文件，我正在使用下载处理程序来下载 csv 文件。每次用户下载文件时，都会出现一条模式消息，让用户知道下载是否完成。问题是即使用户没有保存文件/或取消下载窗口，模式框显示为“下载完成”，有没有办法让模式框仅在用户成功下载文件时才响应？（i假设用户可以选择任何目录）

附上下面的示例代码：

library(shiny)

ui <- fluidPage(
  downloadButton("downloadData", "Download")
)

server <- function(input, output) {
  # Our dataset
  data <- mtcars
  
  output$downloadData <- downloadHandler(
    filename = function() {
      paste("data-", Sys.Date(), ".csv", sep="")
    },
    content = function(file) {
      write.csv(data, file)
      
      showModal(modalDialog(
      title = "Download Complete",
      easyClose = TRUE,
      footer = NULL))
    }
  )
}

shinyApp(ui, server)