From 3489faefc20d3754a1e1d22f6e915d520080d6dc Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Thu, 15 Jul 2021 16:17:46 +0200
Subject: [PATCH] Corregir error exportar objeto R 2

---
 invivos/app.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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