如何将R shiny app中的ggplotly导出为html文件

install.packages("shiny")
install.packages("ggplot2")
install.packages("plotly")

output$myPlot <- renderPlotly({
  ggplotly(my_ggplot)
})

downloadButton("downloadPlot", "导出图为HTML文件")

observeEvent(input$downloadPlot, {
  output$download <- downloadHandler(
    filename = "my_plot.html",
    content = function(file) {
      plotly::export(ggplotly(my_ggplot), file = file)
    }
  )
})

downloadLink("download", "点击此处下载图")

library(shiny)
library(ggplot2)
library(plotly)

ui <- fluidPage(
  plotlyOutput("myPlot"),
  downloadButton("downloadPlot", "导出图为HTML文件"),
  downloadLink("download", "点击此处下载图")
)

server <- function(input, output) {
  my_ggplot <- ggplot(mtcars, aes(x = mpg, y = disp)) + geom_point()

  output$myPlot <- renderPlotly({
    ggplotly(my_ggplot)
  })

  observeEvent(input$downloadPlot, {
    output$download <- downloadHandler(
      filename = "my_plot.html",
      content = function(file) {
        plotly::export(ggplotly(my_ggplot), file = file)
      }
    )
  })
}

shinyApp(ui, server)