CODEWITHSUNDEEP
rplotdownloadshiny
Chong Desmond
Chong Desmond

Reputation: 23

Download plots as PNG documents

I am fairly new to Shiny Apps and I wish to download the plots as png/pdf file. After publishing the app online, the downloaded filename is correct but it is an empty file. I applied print function in content for downloadHandler but it doesn seem to work. Can anyone help me out? Thanks

ui.r

library(shiny)

ui <- fluidPage(

  titlePanel("My First Shiny Project"),

    sidebarLayout(

      sidebarPanel(

       selectInput("select","Choose a Dataset",
              choices = list("trees","pressure"),
              selected = "pressure"),

       selectInput("format","Choose file format",
              choices = list("pdf","png"))

      ),

      mainPanel(

       plotOutput("graph")

      )

     ),

    downloadButton("download","Download Here")

)

server.r

library(shiny)

server <- function(input,output){

   data <- function()({
        switch(input$select,
        "trees" = trees,
        "pressure" = pressure)

    })

   output$graph <- renderPlot(
        plot(data())
    )

   output$download <- downloadHandler(

        filename = function(){

          paste("data",input$select,input$format,sep = ".")

        },

        content = function(file){
          if(input$format == "png")
            png(file)
          if(input$format == "pdf")
            pdf(file)
          print(plot(data()))
          dev.off

  }

)

}

Upvotes: 2

Views: 462

Answers (1)

Florian
Florian

Reputation: 25385

It seems that the only issue was that you used dev.off instead of dev.off(), you also do not need the print() statement. A working version of your code is shown below, hope this helps!

library(shiny)
library(ggplot2movies)
library(dplyr)    

ui <- fluidPage(

  titlePanel("My First Shiny Project"),
  sidebarLayout(
    sidebarPanel(

      selectInput("select","Choose a Dataset",
                  choices = list("trees","pressure"),
                  selected = "pressure"),
      selectInput("format","Choose file format",
                  choices = list("pdf","png"))
    ),
    mainPanel(
      plotOutput("graph")
    )
  ),
  downloadButton("download","Download Here")
)

server <- function(input,output){

  data <- function()({
    switch(input$select,
           "trees" = trees,
           "pressure" = pressure)
  })

  output$graph <- renderPlot(
    plot(data())
  )

  output$download <- downloadHandler(
    filename = function(){
      paste("data",input$select,input$format,sep = ".")
    },
    content = function(file){
      if(input$format == "png")
        png(file)
      if(input$format == "pdf")
        pdf(file)
      plot(data())
      dev.off()
    }
  )
}

shinyApp(ui,server)

Upvotes: 1

Related Questions