Corretgir exportar objecte.

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