R блестящий: Проверьте, если некоторые загрузки доступны

Question

Предположим, у меня есть блестящее приложение с кнопкой загрузки, и я хочу проверить, получил ли эта кнопка загрузки файл, как я могу это сделать? В основном, если кнопка загрузки имеет тег download1Я хочу проверить, если output$download1 нулевой. Это в основном пример того, что я пытаюсь сделать. Это упрощенная версия моего текущего приложения, и я знаю, что проверка, если output$download1 Значение null не является необходимым в моем случае, но оно мне нужно для чего-то другого, что я делаю. Это выполнимо?

Это файл моего сервера:

library(shiny)
library(shinyjs)
library(shinyBS)

shinyServer(function(input, output) {

  observe({

    shinyjs::disable("download1")

    if(is.null(input$file1))
      return()

    # download data
    data <- mtcars
    output$download1 <- downloadHandler(
      filename = function() {
        paste("data-", Sys.Date(), ".csv", sep="")
      },
      content = function(file) {
        write.csv(data, file)
      }
    )

    shinyjs::enable("download1")

    # Check if download is there
     if(!is.null(output$download1)){ # This is what doesn't work
       # Do something
     }

  })

})

и файл пользовательского интерфейса:

# Define UI for application that draws a histogram
shinyUI(fluidPage(

    fileInput("file1", "Upload file1"),
    downloadButton("download1"),
    helpText("Download after something is done.")

))