0

所以我有一个闪亮的应用程序（https://github.com/tadeu95/BAGs）（http://tadeu-apps.shinyapps.io/bags ），我有几个下载按钮。最近开始发生的事情是，当我单击下载按钮时，它会激活两次并下载相同的文件两次。问题是该应用程序运行了将近一年没有任何问题。我已经尝试过 chrome、edge 和 mozzila 并且每次都会发生。我不知道发生了什么，因为我没有触及实现下载的代码部分。

我刚刚发现的一件事是，如果不是用鼠标左键单击下载按钮，而是单击右键并选择“在新选项卡中打开链接”，它只会正确下载文件一次。

这是一个简短的可重现应用程序，我建议您输入“ursidae”，因为它会很快下载文件：

library(bold)
library(readr)
library(shiny)
library(shinyWidgets)


grades2<-function(groups){
  taxon9<-bold_seqspec(taxon=groups, format = "tsv")
}


ui <- fluidPage(textInputAddon(inputId="taxa2",addon=icon("search"),width="500px",label=tags$h5(tags$strong("Enter the name of the taxonomic group or groups separated by commas, without spaces:")),placeholder="Example: Carnivora,Ursidae,Artiodactyla,Soricomorpha"),downloadBttn("downloadData_2",size="sm","Download"))

server <- function(input, output) {
  taxaInput_2 <- reactive({grades2(unlist(strsplit(input$taxa2, ",")))})
  output$downloadData_2 <- downloadHandler(
    filename = function() {
      paste(input$taxa2,sep_out=",", ".tsv")
    },
    content = function(file) {
      shiny::withProgress(
        message=paste0("Downloading and annotating library for ",input$taxa2,sep_out=","), detail='This may take several minutes',
        value=10,
        {
          shiny::incProgress(10/10)
          write_tsv(taxaInput_2(), file)
        }
      )
    }
  )
}

shinyApp(ui=ui,server=server)

如果有人知道原因可能是什么，我将非常感激。

4

0 回答 0