Downloadhander (sauvegarde du tracé) pour le tracé de base dans shiny

Question

Comment sauvegarder le tracé en utilisant le bouton de téléchargement dans shiny ?
Je sais comment le faire pour ggplot, mais je ne trouve pas comment le faire pour basic. plot() .

Exemple :

library(shiny)
library(ggplot2)

# ui
ui <- fluidPage(
  downloadButton("save", "save")
)

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

  p <- reactive({ggplot(iris, aes(Sepal.Length, Sepal.Width)) + geom_point()})
  p2 <- reactive({dotchart(iris$Sepal.Length, iris$Species, iris$Species)})

  output$save <- downloadHandler(
    filename = "save.png" ,
    content = function(file) {
      ggsave(p(), filename = file)
    })
}

# run
shinyApp(ui, server)

ci-dessus, il est mis en œuvre la sauvegarde de la parcelle p . Maintenant, comment mettre en œuvre la sauvegarde de la parcelle p2 ?