Corretgir exportar objecte.

2021-07-14 11:24:17 +02:00
parent b9d77ac3f2
commit d58e3d6e0e
1 changed files with 3 additions and 2 deletions
@@ -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")
        )
      }
    )