How is it possible to save/download a barplot in R shiny?

Belfort90 Source

I would like to save/download my barplots in shiny. I did it with ggplot, with ggsave and it was possible, but how can I do it for barplot()? My code in ui.R is:

library(shiny)
library(shinydashboard)
library(ggplot2)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    box(
      title = "", 
      status = "danger", 
      solidHeader = TRUE,
      plotOutput(outputId = "myPlotMdata1")
    ),

    box(
      title = "", 
      status = "danger", 
      solidHeader = TRUE,
      plotOutput(outputId = "myPlotMdata2")
    ),

    box(
      title = "", 
      status = "danger", 
      solidHeader = TRUE,
      plotOutput(outputId = "myPlotMdata3")
    ),

    box(
      title = "", 
      status = "danger", 
      solidHeader = TRUE,
      plotOutput(outputId = "myPlotMdata4")
    ),
    box(
      title = "Download", 
      status = "success", 
      solidHeader = TRUE,
      width = 12,
      radioButtons("formatTopwords", "Document format", c("PNG"="png", "EPS"="eps", "PDF"="pdf"), inline = TRUE),
      downloadButton("downloadReportTopwords")
    )
  )
) 

server <- function(input, output) {
  output$myPlotMdata1 <- renderPlot({
    barplot(TopWords$lassoInfPos, las = 2, names.arg = TopWords$informedPos, main = "Informed Investor Top 15 positive words", ylab = "Lasso coefficient")
  })

  output$myPlotMdata2 <- renderPlot({
    barplot(TopWords$lassoNoisePos , las = 2, names.arg = TopWords$noisePos, main = "Noise Investor Top 15 positive words", ylab = "Lasso coefficient")
  })

  output$myPlotMdata3 <- renderPlot({
    barplot(TopWords$lassoInfNeg, las = 2, names.arg = TopWords$informedNeg, main = "Informed Investor Top 15 negative words", ylab = "Lasso coefficient")
  })

  output$myPlotMdata4 <- renderPlot({
    barplot(TopWords$lassoNoiseNeg, las = 2, names.arg = TopWords$noiseNeg, main = "Noise Investor Top 15 negative words", ylab = "Lasso coefficient")
  })

  fn <- reactive({paste("Plot",input$formatTopwords,sep = ".")})
  d <- reactive({input$formatTopwords})

  output$downloadReportTopwords <- downloadHandler(
    filename = fn,
    content = function(file) {
      #ggsave I use for another function, how can I save barplots here
      ggsave(file, device=d(), dpi = 600, width = 297, height = 210, units = "mm")
    }
  )
}  

shinyApp(ui, server)
rdownloadshinybar-chart

Answers

answered 1 week ago SeGa #1

I'm not sure about EPS, but the following example works for PNG and PDF. You can create a plotting function, which you then call in your renderPlot and in the downloadHandler.

library(shiny)
library(shinyjs)
library(shinydashboard)
library(ggplot2)

TopWords = data.frame(
  lassoInfPos = runif(100,1,100),
  lassoNoisePos = runif(100,1,50),
  lassoInfNeg = runif(100,1,20),
  lassoNoiseNeg = runif(100,1,10)
)

ui <- {dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    box(width = 6,
      plotOutput("myPlotMdata1"),
      plotOutput("myPlotMdata2")
    ),
    box(width = 6,
      plotOutput("myPlotMdata3"),
      plotOutput("myPlotMdata4")
    ),
    box(
      title = "Download", 
      status = "success", 
      solidHeader = TRUE,
      width = 12,
      radioButtons("formatTopwords", "Document format", c("PNG"="png", "EPS"="eps", "PDF"="pdf"), inline = TRUE),
      downloadButton("downloadReportTopwords")
    )
  )
)}



barplot_func <- function(input, main) {
  barplot(input, las = 2, #names.arg = TopWords$informedPos, 
          main = main, ylab = "Lasso coefficient")
}

server <- function(input, output) {
  output$myPlotMdata1 <- renderPlot({
    barplot_func(TopWords$lassoInfPos, "Informed Investor Top 15 positive words")
  })
  output$myPlotMdata2 <- renderPlot({
    barplot_func(TopWords$lassoNoisePos, "Informed Investor Top 15 positive words")
  })
  output$myPlotMdata3 <- renderPlot({
    barplot_func(TopWords$lassoInfNeg, "Informed Investor Top 15 negative  words")
  })
  output$myPlotMdata4 <- renderPlot({
    barplot_func(TopWords$lassoNoiseNeg, "Informed Investor Top 15 negative  words")
  })

  fn <- reactive({paste("Plot",input$formatTopwords,sep = ".")})
  d <- reactive({input$formatTopwords})

  output$downloadReportTopwords <- downloadHandler(
    filename = fn,
    content = function(file) {
      if (input$formatTopwords == "png") {
        png(file)
      } else if(input$formatTopwords == "pdf") {
        pdf(file)
      }
      par(mfrow=c(2,2))
      barplot_func(TopWords$lassoInfPos, "Informed Investor Top 15 positive words")
      barplot_func(TopWords$lassoNoisePos, "Informed Investor Top 15 positive words")
      barplot_func(TopWords$lassoInfNeg, "Informed Investor Top 15 negative  words")
      barplot_func(TopWords$lassoNoiseNeg, "Informed Investor Top 15 negative  words")
      dev.off() 
    }
  )
}  

shinyApp(ui, server)

comments powered by Disqus