|
|
@ -640,7 +640,7 @@ server <- function(input, output) { |
|
|
|
|
|
|
|
output$downloadPicture <- downloadHandler( |
|
|
|
filename = function() { |
|
|
|
paste("Figura", ".png", sep="") |
|
|
|
paste("Figura", ".zip", sep="") |
|
|
|
}, |
|
|
|
content = function(file){ |
|
|
|
# tempReport <- file.path(tempdir(), "elispots.Rmd") |
|
|
|