Corregir error exportar objeto R 2

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")