Here below a reproducible example. I ran on my laptop (mac) and I have no problem when cancelling the download with Firefox or Chrome however doing the same action on the CentOS server with shiny server pro causes a disconnection from the server. Any thoughts?
Thanks.
FE
Example
library(shiny)
ui <- fluidPage(
downloadLink("downloadData", "Download")
)
server <- function(input, output) {
output$downloadData <- downloadHandler(
filename = function() {
paste("data_CCLE-Broad-MIT_xsq_", Sys.Date(), ".zip", sep="")
},
content = function(file) {
myfile = "data_CCLE-Broad-MIT_xsq.zip"
## file size is 244.6 MB
## you can replace this with another big file
if (file.exists(myfile)) file.copy(myfile, file)
}
)
}
Run the application
shinyApp(ui = ui, server = server)