From d58e3d6e0e14bc860f7bdcedf824553795d531e5 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Wed, 14 Jul 2021 11:24:17 +0200
Subject: [PATCH] Corretgir exportar objecte.

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

diff --git a/app.R b/app.R
index e0b7f75..38efea5 100644
--- a/app.R
+++ b/app.R
@@ -269,9 +269,10 @@ server <- function(input, output) {
         png("plot.png", width = input$width, height=input$height, units = "px", res=720)
         plot(dades$plot)
         dev.off()
-        save(dades$plot, list="plot", file="plot.RObject")
+        plot<-dades$plot
+        save(plot, file="plot.RObject")
         zip(file,
-            c("plot.png")
+            c("plot.png", "plot.RObject")
         )
       }
     )