Сохранить графики, сделанные в блестящем приложении

Я пытаюсь выяснить, как использовать downloadButton, чтобы сохранить сюжет с блестящей. Пример в пакете демонстрирует downloadButton / downloadHandler для сохранения.csv. Я собираюсь сделать воспроизводимый пример, основанный на этом.

За ui.R

shinyUI(pageWithSidebar(
  headerPanel('Downloading Data'),
  sidebarPanel(
selectInput("dataset", "Choose a dataset:", 
            choices = c("rock", "pressure", "cars")),
    downloadButton('downloadData', 'Download Data'),
    downloadButton('downloadPlot', 'Download Plot')
  ),
  mainPanel(
    plotOutput('plot')
  )
))

За server.R

library(ggplot2)
shinyServer(function(input, output) {
  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
  })

  plotInput <- reactive({
    df <- datasetInput()
    p <-ggplot(df, aes_string(x=names(df)[1], y=names(df)[2])) +
      geom_point()
  })

  output$plot <- renderPlot({
    print(plotInput())
  })

  output$downloadData <- downloadHandler(
    filename = function() { paste(input$dataset, '.csv', sep='') },
    content = function(file) {
      write.csv(datatasetInput(), file)
    }
  )
  output$downloadPlot <- downloadHandler(
    filename = function() { paste(input$dataset, '.png', sep='') },
    content = function(file) {
      ggsave(file,plotInput())
    }
  )
})

Если вы отвечаете на этот вопрос, вы, вероятно, знакомы с этим, но чтобы это сработало, сохраните вышесказанное в отдельных сценариях (ui.R а также server.R в папку (foo) в рабочем каталоге. Чтобы запустить блестящее приложение, запустите runApp("foo"),

С помощью ggsave, Я получаю сообщение об ошибке, указывающее, что ggsave не может использовать filename функция (я думаю). Если я использую стандартное графическое устройство (как показано ниже), Download Plot работает без ошибок, но не пишет графику.

Будем благодарны за любые советы по загрузке downloadHandler для написания сюжетов.

Источник

4 ответа

Решение

Не уверен, что этот вопрос все еще активен, но он появился первым при поиске "сохранения графиков в блестящем приложении", поэтому я хотел быстро добавить, как заставить ggsave работать с downloadHandler в соответствии с первоначальным вопросом.

Альтернативные стратегии, предложенные juba с использованием прямого вывода вместо ggsave, и альтернативные стратегии, предложенные самим alexwhan, отлично работают, это только для тех, кто абсолютно хочет использовать ggsave в downloadHandler).

Проблема, о которой сообщает alexwhan, вызвана тем, что ggsave пытается сопоставить расширение файла с правильным графическим устройством. Временный файл, однако, не имеет расширения, поэтому сопоставление не выполняется. Это может быть исправлено путем специальной настройки устройства в ggsave вызов функции, как в оригинальном примере кода (для 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)
    }
)

Этот вызов в основном принимает device функция для png тот ggsave присваивает внутри (вы можете посмотреть на ggsave код функции, чтобы увидеть синтаксис для jpg, pdf, так далее). Возможно, в идеале можно указать расширение файла (если оно отличается от имени файла - как в случае с временным файлом) как ggsave параметр, но эта опция в настоящее время недоступна в ggsave,

Минимальный автономный рабочий пример:

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

Обновить

Начиная с версии 2.0.0 ggplot2, ggsave Функция поддерживает ввод символов для device параметр, который означает, что временный файл, созданный downloadHandler, теперь может быть сохранен с прямым вызовом ggsave указав, что используемое расширение должно быть, например, "pdf" (вместо передачи функции устройства). Это упрощает приведенный выше пример к следующему

output$downloadPlot <- downloadHandler(
    filename = function() { paste(input$dataset, '.png', sep='') },
    content = function(file) {
        ggsave(file, plot = plotInput(), device = "png")
    }
)
Источник

Это старый, но все же самый популярный вариант, когда кто-то гуглит "R глянцевый сохранить ggplot", поэтому я внесу другой обходной путь. Очень просто... вызовите ggsave в той же функции, которая отображает ваш график, который сохранит график в виде файла на сервере.

output$plot <- renderPlot({
    ggsave("plot.pdf", plotInput())
    plotInput()
})

Затем используйте downloadHandler и используйте file.copy() записать данные из существующего файла в параметр "file".

output$dndPlot <- downloadHandler(
    filename = function() {
        "plot.pdf"
    },
    content = function(file) {
        file.copy("plot.pdf", file, overwrite=TRUE)
    }
)

Работает для меня.

Источник

Мне не удалось заставить его работать с ggsave, но со стандартным вызовом png() кажется, все в порядке.

Я только изменил output$downloadPlot часть вашего server.R файл:

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

Обратите внимание, что у меня были некоторые проблемы с версией 0.3 блестящей версии, но она работает с последней версией от Github:

library(devtools)
install_github("shiny","rstudio")
Источник

Вот решение, которое позволяет использовать ggsave для сохранения блестящих графиков. Он использует логический флажок и текстовый ввод для вызова ggsave(), Добавьте это к ui.R файл внутри sidebarPanel:

textInput('filename', "Filename"),
checkboxInput('savePlot', "Check to save")

Затем добавьте это к server.R файл вместо текущего output$plot функция реактивного участка:

output$plot <- reactivePlot(function() {
    name <- paste0(input$filename, ".png")
    if(input$savePlot) {
      ggsave(name, plotInput(), type="cairo-png")
    }
    else print(plotInput())
  })

Затем пользователь может ввести желаемое имя файла в текстовое поле (без расширения) и установить флажок для сохранения в каталоге приложения. Если снять флажок, печать снова будет напечатана. Я уверен, что есть более аккуратные способы сделать это, но, по крайней мере, теперь я могу использовать ggsave и cairo в Windows для гораздо более приятной графики PNG.

Пожалуйста, добавьте любые предложения, которые вы можете иметь.

Источник
Другие вопросы по тегам