Загрузите динамический график, используя динамический downloadHandler () из блестящего приложения - PullRequest
Новая
       7

Загрузите динамический график, используя динамический downloadHandler () из блестящего приложения

0 голосов
/ 08 февраля 2019

У меня есть блестящее приложение ниже, из которого я пытаюсь загрузить график с помощью downloadHandler().Проблема в том, что объект, который я пытаюсь загрузить, является либо датируемым, либо сюжетным сюжетом, поэтому я не знаю, как передать его в downloadHandler().Обратите внимание, что моя кнопка загрузки также динамическая, потому что в первом случае она должна загружать таблицу, а во втором - график.Обратите внимание, что я забочусь только о сюжете здесь. Откройте приложение в браузере. Сначала я устанавливаю: 

library(webshot)
install_phantomjs()

, а затем: 

    library(shiny)
library(plotly)

d <- data.frame(X1 = rnorm(50,mean=50,sd=10), 
                X2 = rnorm(50,mean=5,sd=1.5), 
                Y = rnorm(50,mean=200,sd=25))

ui <-fluidPage(
  title = 'Download Plotly',
  sidebarLayout(

    sidebarPanel(
      selectInput("S","SELECT",choices = c("Table","Plot"),selected = "Plot"),
      uiOutput('down')
    ),

    mainPanel(
      uiOutput('regPlot')

    )
  )
)

server <- function(input, output, session) {

output$down<-renderUI({
  if(input$S=="Table"){

      output$downloadData <- downloadHandler(
        filename = function() {
          paste(input$filename, input$extension, sep = ".")
        },

        # This function writes data to a file given to it by the argument 'file'.
        content = function(file) {
          sep <- "txt"=","
          # Write to a file specified by the 'file' argument
          write.table(data.frame(mtcars), file, sep = sep,
                      row.names = FALSE)
        }

      )
      downloadButton("downloadData", "Download",class = "butt1")
  }
  else{
    output$downloadData <- downloadHandler(
      filename = function(){
        paste0(paste0("test", Sys.Date()), ".png")
      },
      content = function(file) {
        export(regPlot, file=file)
      }) 
    downloadButton("downloadData", "Download",class = "butt1")
  }
})  

output$regPlot<-renderUI({
  if(input$S=="Plot"){
    output$pl<-renderPlotly(
    plot_ly(d, x = d$X1, y = d$X2, mode = "markers"))
    plotlyOutput("pl")
  }
  else{
    output$tbl =  DT::renderDataTable(datatable(
      d
    ))
    dataTableOutput("tbl") 
  }
  })

}

shinyApp(ui = ui, server = server)

1 Ответ

0 голосов
/ 08 февраля 2019

По данным сайта ploty используйте следующий код: 

if (!require("processx")) install.packages("processx")

p <- plot_ly(z = ~volcano) %>% add_surface()

orca(p, "surface-plot.png")
...