Download ggplots with a modal window

Source: R/ggdownload_popup.R

this module invokes a modal window, where parameters for the function ggsave() can be specified`

ggdownload_popup_ui(id, label = "download...")

ggdownload_popup_server(input, output, session, plotObj)

Arguments

id

module identifier
label

label of the button
input, output, session

Standard module parameters
plotObj

A reactive ggplot object

Examples

if (FALSE) {
shinyApp(
  ui = fluidPage(
    ggdownload_popup_ui("gg_popup")
  ),
  server = function(input, output, session) {
    plot <- reactive({
      library(ggplot2)
      ggplot(mtcars) + aes(wt, mpg) + geom_point()
    })
    callModule(ggdownload_popup_server, "gg_popup", plot)
  }
)
}