Нажмите кнопку действия и сохраните ggplot как pdf

Question

Я пытаюсь загрузить / сохранить динамически выводимый ggplot в формате pdf после нажатия кнопки download.

Я пытался сделать это разными способами из нескольких источников в Интернете, но каждый раз безуспешно. Я приложил соответствующий код в надежде, что кто-нибудь может помочь мне в создании соответствующей функции «downloadPlot».

ui <- ......
      .
      .
downloadButton('downloadPlot','Download Image'),
      .
      .
server <- function(input,output,session){
      .                                           
      .
# DP Box Plots 
  output$one <- renderPlot({
    if(input$layer == "State Specific"){
      validate(
        need(input$ES, "Please select a state to access the box plots."))
      }
    else if(input$layer == "Niche Specific"){
      validate(
        need(input$niche, "Please select a niche to access the box plot.")
      )
    }
    else if(input$layer == "State/Niche Specific"){
      validate(
        need(input$SoN, "Please select a state. ")
      )
      validate(
        need(input$NoS, "Please select a niche. ")
      )
    }
    else if(input$layer == "New/Renewal Specific"){
      validate(
        need(input$NR, "Please select new or renewal to view box plots.")
      )
    }

    ggplot(Dataset(), aes(x= reorder(Niche_Groups, 
Discretionary_Price_Relativity, FUN = median), y = 
Discretionary_Price_Relativity)) + geom_boxplot() + coord_flip() + 
ggtitle(paste("Discretionary Pricing - ",titlename())) + theme(plot.title = 
element_text(hjust = 0.5)) +
       ylab("Ratio to Technical") + xlab("Niche Groups")
   })

Answer 1

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

  theplot <- reactive({
    if(input$layer == "State Specific"){
      validate(
        need(input$ES, "Please select a state to access the box plots."))
    }
    else if(input$layer == "Niche Specific"){
      validate(
        need(input$niche, "Please select a niche to access the box plot.")
      )
    }
    else if(input$layer == "State/Niche Specific"){
      validate(
        need(input$SoN, "Please select a state. ")
      )
      validate(
        need(input$NoS, "Please select a niche. ")
      )
    }
    else if(input$layer == "New/Renewal Specific"){
      validate(
        need(input$NR, "Please select new or renewal to view box plots.")
      )
    }

    ggplot(Dataset(), aes(x= reorder(Niche_Groups, 
                                     Discretionary_Price_Relativity, FUN = median), y = 
                            Discretionary_Price_Relativity)) + geom_boxplot() + coord_flip() + 
      ggtitle(paste("Discretionary Pricing - ",titlename())) + theme(plot.title = 
                                                                       element_text(hjust = 0.5)) +
      ylab("Ratio to Technical") + xlab("Niche Groups")    
  })

  output$one <- renderPlot({
    theplot()
  })

  output$downloadPlot <- downloadHandler(
    filename = "theplot.pdf",
    content = function(file){
      ggsave(file, theplot())
    }
  )