使用下载处理程序以闪亮的方式保存 ggplot 图像

Question

我正在使用 Shiny 开发应用程序。在 Shiny 中，我正在使用操作按钮渲染一个简单的绘图。我已经包含一个下载按钮来下载现在在 UI 中的图。来自我的代码（plot3）

我尝试了以下代码来保存图像，但出现错误

plotInput 未找到。

谁能建议我哪里出错了。

以下是我的代码供参考。 用户界面：

ui <- tabItem(tabName = "models2",
        fluidPage(
          fluidRow(
            infoBoxOutput("overview")
          ),
          fluidRow(
            actionButton("result1","Generate Result"),
            downloadButton('downloadPlot','Download Plot'),
            plotOutput("plot3")
          )
        ))

服务器

server <- function(input,output,session{
 output$overview <- renderValueBox({
      valueBox(
        paste("91"),"Overview",icon=icon("hourglass"),
        color="green"
      )
    })
  observeEvent(input$result1,{
  output$plot3  <- renderPlot({
    ggplot(data=timedata, aes(x=dat1, y=yes, group=3))+ 
      geom_point(shape=1)+
      coord_cartesian(xlim=c(dat1_xlowlim,dat1_xhighlim))+
      labs(title="Probability",x="Date",y="True probability")  
  })
  })
  output$downloadPlot <- downloadHandler(
    filename = function(){paste(input$plot3,'.png',sep='')},
    content = function(plot3){
      ggsave(plot3,plotInput())

    }
  )
})

另外，要注意我的闪亮和 R 工作室是在 R 环境中。

Answer 1

library(shiny)
library(shinydashboard)
ui <- tabItem(tabName = "models2",
          fluidPage(
            fluidRow(
              infoBoxOutput("overview")
            ),
            fluidRow(
              actionButton("result1","Generate Result"),
              downloadButton('downloadPlot','Download Plot'),
              plotOutput("plot3")
            )
          ))

server <- function(input,output,session){
           output$overview <- renderValueBox({
           valueBox(
            paste("91"),"Overview",icon=icon("hourglass"),
           color="green"
      )
  })
    data <- reactiveValues()
    observeEvent(input$result1,{
    data$plot <- ggplot(data=iris, aes(x=Sepal.Length, y=Sepal.Width))+ 
    geom_point(shape=1)})

    output$plot3  <- renderPlot({  data$plot })

    output$downloadPlot <- downloadHandler(
         filename = function(){paste("input$plot3",'.png',sep='')},
         content = function(file){
          ggsave(file,plot=data$plot)
    }
  )
}
shinyApp(ui, server)

Answer 2

@Mikz 我没有足够的声誉来关注您的评论。因此，我创建了一个新的 anwser，但希望回答您的问题“为什么应用程序会自动关闭？”。

我在公司的 rstudio-server 上开发闪亮的应用程序时遇到了同样的问题。我的应用程序会在一段时间后自行关闭。但是，在我的本地笔记本电脑上运行的同一个应用程序没有这个问题。

经过我的研究，我认为它是由超时设置引起的（默认为 60 秒）。我还使用函数 ~~Sys.sleep()~~ 来测试这个默认时间。我从这个blog 中找到了适合我的解决方案。

这个想法是使用 WebSocket 每 50 秒触发一次应用程序。这样，你就不需要让技术人员调整服务器级别的设置了。