ColinFay

library(shiny)
library(ggplot2)
ui <- function(request){
  tagList(
    h2("Click on the plot to download it"),
    tags$button(
      "Click here to download the plot", 
      onclick = 'var a = document.createElement("a"); a.href = $("#plop").find("img").attr("src"); a.download = "Image.png"; a.click(); '
    ),
    plotOutput("plop")