Añadir overwrite=T en write.xlsx, requerido tras actualizar paquete en servidor.

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