Meu aplicativo brilhante produz alguns arquivos que o usuário pode baixar. Eu coloquei o botão de download na interface do usuário para esse fim. No entanto, quando a página é iniciada e antes de qualquer cálculo, não há nada para fazer o download. Quero impedir que o usuário baixe páginas vazias.

Para isso, estou pensando em desativar o downloadButton antes que a saída esteja pronta. Mas eu não sei como fazer isso. Encontrei maneiras de desativar o ActionButton (como o pacote ShinyBS e outros códigos JS), mas nada para o downloadButton.

No momento, uso validate () para gerar erros se a saída não estiver pronta. No entanto, quando o downloadButton é clicado, uma nova página da Web vazia é aberta com uma mensagem de erro feia.

Diz-me o que pensas.

Este é o meu código de interface do usuário

 downloadButton('download', 'Download Lasso component matrix')),

e este é o código do meu servidor:

  output$download_matrix <- downloadHandler(
      filename = function() { 
      validate(
      need(is.null(outputData())==FALSE, "No data to download yet")
      )
      paste('combined_model_matrix', '.txt', sep='') },
    content = function(file) {
      write.csv(outputData()$combinedAdjMtr, file)
})