Блог

Я создаю приложение, из которого пользователь может загружать файлы csv, я использую обработчик загрузки для загрузки файлов csv. Каждый раз, когда пользователь загружает файл, появляется модальное сообщение, сообщающее пользователю, завершена ли загрузка. Проблема в том, что даже когда пользователь не сохраняет файл / или не отменяет окно загрузки, модальное окно отображается как «загрузка завершена», есть ли способ заставить модальное окно отвечать только тогда, когда пользователь успешно загрузил файл?(я предполагаю, что пользователь может выбрать любой каталог)

прилагаю пример кода ниже :

 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)