Save the plotly object to local system

server.r

library(shiny)
library(plotly)
library(ggplot2)
shinyServer(function(input,output)({

  ## Below plotting using plotly
  output$plotlyplot <- renderPlotly({
    p = plot_ly(data = iris, y=~Sepal.Length, type = "scatter")
    
    # Using the export function to save the plot after the click of action button
    observeEvent(input$savea, {
      export(p, file.path("C:/Users/Abhinav/Desktop/", "imagep.png"))
    })
    
    return(p)
  })
  
  ## Below plotting using ggplotly
  output$ggplotly <- renderPlotly({
    data <- data.frame(x = rnorm(1:1000), y = rnorm(1:1000))
    g <- ggplot(data, aes(x = x, y = y)) + geom_point()
    gg <- ggplotly(g)
    
    # Using the export function to save the plot after the click of action button
    observeEvent(input$saveb, {
      export(gg, file.path("C:/Users/Abhinav/Desktop/", "imageg.png"))
    })
    
    return(gg)
  })
  
  
}))

ui.r

library(shiny)
library(plotly)
shinyUI(fluidPage(
  titlePanel("Save plotly to local machine in Shiny - an example"),
  sidebarLayout(
    sidebarPanel(),
    mainPanel(
      plotlyOutput("plotlyplot"),
      actionButton("savea", "Save the plotly plot"),
      plotlyOutput("ggplotly"),
      actionButton("saveb", "Save the ggplotly plot")
      
      
    )
  )
  
))