Enregistrer des parcelles faite dans un brillant app

Ne sais pas si cette question est toujours actif, mais c'est la première qui m'est venue lors de la recherche pour "sauver les parcelles de shiny app" donc je voulais ajouter rapidement comment obtenir ggsave de travailler avec downloadHandler le long de la lignes de la question d'origine.

Les stratégies alternatives suggérées par juba à l'aide de la sortie directe au lieu de ggsave et stratégie alternative suggérée par alexwhan lui-même à la fois de l'excellent travail, c'est juste pour ceux qui veulent absolument utiliser ggsave dans le downloadHandler).

Le problème signalé par alexwhan est causée par ggsave d'essayer de faire correspondre l'extension du fichier pour le graphique correcte de l'appareil. Le fichier temporaire, cependant, n'a pas une extension si l'appariement échoue. Cette situation peut être corrigée par spécifiquement réglage de l'appareil dans le ggsave appel de fonction, comme dans le code d'origine par exemple (png):

output$downloadPlot <- downloadHandler(
    filename = function() { paste(input$dataset, '.png', sep='') },
    content = function(file) {
        device <- function(..., width, height) grDevices::png(..., width = width, height = height, res = 300, units = "in")
        ggsave(file, plot = plotInput(), device = device)
    }
)

Cet appel prend la device pour une fonction de png que ggsave attribue à l'interne (vous pouvez regarder le ggsave code de la fonction pour voir la syntaxe de jpg, pdf, etc). Peut-être, dans l'idéal, on pourrait préciser l'extension de fichier (si différent du nom de fichier - comme c'est le cas ici pour le fichier temporaire) comme un ggsave paramètre, mais cette option n'est pas disponible actuellement dans ggsave.

---

Un minimum autonome de travail exemple:

library(shiny)
library(ggplot2)
runApp(list(
  ui = fluidPage(downloadButton('foo')),
  server = function(input, output) {
    plotInput = function() {
      qplot(speed, dist, data = cars)
    }
    output$foo = downloadHandler(
      filename = 'test.png',
      content = function(file) {
        device <- function(..., width, height) {
          grDevices::png(..., width = width, height = height,
                         res = 300, units = "in")
        }
        ggsave(file, plot = plotInput(), device = device)
      })
  }
))

sessionInfo()
# R version 3.1.1 (2014-07-10)
# Platform: x86_64-pc-linux-gnu (64-bit)
# 
# locale:
#  [1] LC_CTYPE=en_US.UTF-8       LC_NUMERIC=C              
#  [3] LC_TIME=en_US.UTF-8        LC_COLLATE=en_US.UTF-8    
#  [5] LC_MONETARY=en_US.UTF-8    LC_MESSAGES=en_US.UTF-8   
#  [7] LC_PAPER=en_US.UTF-8       LC_NAME=C                 
#  [9] LC_ADDRESS=C               LC_TELEPHONE=C            
# [11] LC_MEASUREMENT=en_US.UTF-8 LC_IDENTIFICATION=C       
# 
# attached base packages:
# [1] stats     graphics  grDevices utils     datasets  methods   base     
# 
# other attached packages:
# [1] ggplot2_1.0.0 shiny_0.10.1 
# 
# loaded via a namespace (and not attached):
#  [1] bitops_1.0-6     caTools_1.17     colorspace_1.2-4 digest_0.6.4    
#  [5] formatR_1.0      grid_3.1.1       gtable_0.1.2     htmltools_0.2.6 
#  [9] httpuv_1.3.0     labeling_0.2     MASS_7.3-34      munsell_0.4.2   
# [13] plyr_1.8.1       proto_0.3-10     Rcpp_0.11.2      reshape2_1.4    
# [17] RJSONIO_1.3-0    scales_0.2.4     stringr_0.6.2    tools_3.1.1     
# [21] xtable_1.7-3    

Mise à jour

De ggplot2 de la version 2.0.0, le ggsave fonction prend en charge la saisie de caractères pour le device paramètre, cela signifie que le fichier temporaire créé par le downloadHandler peuvent désormais être enregistrés avec un appel direct à ggsave en précisant que l'extension doit être par exemple "pdf" (plutôt que de passer dans un fonctionnement de l'appareil). Cela simplifie l'exemple ci-dessus à la suite de

output$downloadPlot <- downloadHandler(
    filename = function() { paste(input$dataset, '.png', sep='') },
    content = function(file) {
        ggsave(file, plot = plotInput(), device = "png")
    }
)

Je n'ai pas réussi à le faire fonctionner avec ggsave, mais avec un standard d'appel à png() il semble être bon.

J'ai seulement changé la output$downloadPlot partie de votre server.R fichier :

 output$downloadPlot <- downloadHandler(
    filename = function() { paste(input$dataset, '.png', sep='') },
    content = function(file) {
      png(file)
      print(plotInput())
      dev.off()
    })

Noter que j'ai eu quelques problèmes avec la version 0.3 de brillant, mais il fonctionne avec la dernière à partir de Github :

library(devtools)
install_github("shiny","rstudio")