From 348ae5193b7c952602cec9ddd0d452f690d7d66b Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Thu, 15 Jul 2021 09:49:25 +0200
Subject: [PATCH] =?UTF-8?q?A=C3=B1adir=20overwrite=3DT=20en=20write.xlsx,?=
 =?UTF-8?q?=20requerido=20tras=20actualizar=20paquete=20en=20servidor.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 app.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/app.R b/app.R
index 38efea5..7fa4ff7 100644
--- a/app.R
+++ b/app.R
@@ -103,7 +103,7 @@ server <- function(input, output) {
             t_substr_gp<-t_substr_gp[order(factor(t_substr_gp$Mice, levels = unique(table$Mice))),]
             doc<-t(t_substr_gp)
             
-            write.xlsx(doc, "data4graphpad.xlsx",rowNames=T)
+            write.xlsx(doc, "data4graphpad.xlsx",rowNames=T, overwrite=T)
             
             t<-melt(t_substr[,!colnames(t_substr) %in% c(ctrl, mock)])
 
@@ -269,8 +269,8 @@ server <- function(input, output) {
         png("plot.png", width = input$width, height=input$height, units = "px", res=720)
         plot(dades$plot)
         dev.off()
-        plot<-dades$plot
-        save(plot, file="plot.RObject")
+        elispot.plot<-dades$plot
+        save(elispot.plot, file="plot.RObject")
         zip(file,
             c("plot.png", "plot.RObject")
         )