Блестящий файл не сохраняет графики - PullRequest
Новая
       9

Блестящий файл не сохраняет графики

0 голосов
/ 07 ноября 2018

Я пытаюсь сохранить сгенерированные графики блестящего приложения на стороне сервера, и хотя он работает для фреймов данных, он не работает для графиков. Вот фрагмент кода, который генерирует графики, но не сохраняет их на стороне сервера.

Вот код на ui.R 

shinySaveButton(id = 'downloadplot1', label =  'Save plot', title = "Save plot as...", filetype = "png")

А вот соответствующий код в server.R скрипте 

observe({
    volumes <- c("wd"="/Users/upendra_35/Documents/CyVerse/Images_apps/DE/VICE/Ballgown_shinyapp/")
    shinyFileSave(input, "downloadplot1", roots=volumes, session=session)
    fileinfo <- parseSavePath(volumes, input$downloadplot1)
    if (nrow(fileinfo) > 0) {
      plotMeans(gene=input$gv_var_input, gown=bg1(), as.character(fileinfo$datapath))
    }
  })

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

1 Ответ

0 голосов
/ 07 ноября 2018

Неважно. Я понял. Вот как это работает .. 

observe({
    volumes <- c("wd"="/Users/upendra_35/Documents/CyVerse/Images_apps/DE/VICE/Ballgown_shinyapp/")
    shinyFileSave(input, "downloadplot1", roots=volumes, session=session)
    fileinfo <- parseSavePath(volumes, input$downloadplot1)
    if (nrow(fileinfo) > 0) {
      ggsave(plotMeans(gene=input$gv_var_input, gown=bg1()), filename = as.character(fileinfo$datapath))
    }
  })
...