diff --git a/invivos/app.R b/invivos/app.R
index d2bb86e..07fc334 100644
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -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")