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