ShinyAlert as input inside downloadHandler

Question

Is there a way to use Shinyalert() as a filename input for downloadHandler()? I want to create an app where the user can download the plot, and a "save as:" pop-up input message will appear. Then the file will be saved as whatever the input is.

I tried doing this with ShinyAlert but even though I got the pop-up input message, the file was downloaded the instant I pressed on the download button. Here's what I have so far:

UI:

ui <- fluidPage(
  useShinyalert(),
  plotOutput("vmgraph"),
  downloadButton("downloadPlot", "Download Plot")
)

Server:

server <- function(input, output) {

output$vmgraph <- renderPlot({vmgraph()})

rv <- reactiveValues(download_flag = 0)
  
output$downloadPlot <- downloadHandler(
    filename = function(){
      rv$download_flag <- rv$download_flag + 1
      if (rv$download_flag > 0) {
        shinyalert("Save as:", 
                   type = "input", 
                   size = "m", 
                   closeOnEsc = TRUE, 
                   closeOnClickOutside = TRUE, 
                   showConfirmButton = TRUE, 
                   showCancelButton = TRUE,
                   confirmButtonText = "Save", 
                   confirmButtonCol = "#0075B8",
                   animation = TRUE)
      }
      paste(input$shinyalert, ".png", sep = "")},
    content = function(file) {
      ggsave(file, plot = vmgraph(), width = 12, height = 7.7)
    }
  )

I use download_flag to act as a trigger for Shinyalert(). Been trying to find a way for this to work for hours so any help will be appreciated.

Pabort · Accepted Answer · 2021-06-02 08:38:15Z

0

I got something close to what you want. Key is using html=TRUE and putting a tagList inside the shinyalert, in order to make the "confirm" button the downloadButton(), and then using some javascript:

library(shiny)
library(shinyalert)
library(ggplot2)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  useShinyalert(),
  plotOutput("vmgraph"),
  actionButton("downloadPlot", "Download Plot")
) 

server <- function(input, output) {
  
  output$vmgraph <- renderPlot({plot(mtcars)})
  
  observeEvent(input$downloadPlot, {
    shinyalert("Save as:", 
               type = "info",
               size = "m",
               html = TRUE,
               text = tagList(
                 textInput(inputId = "name", label = NULL ),
                 downloadButton("confName", "Confirm")
               ),
               closeOnEsc = TRUE,
               closeOnClickOutside = TRUE,
               showConfirmButton = FALSE,
               showCancelButton = TRUE,
               animation = TRUE
    )
    runjs("
        var confName = document.getElementById('confName')
        confName.onclick = function() {swal.close();}
        ")
  })
  
  output$confName <- downloadHandler(
    filename = function(){
      paste(input$name, ".png", sep = "")},
    content = function(file) {
      ggsave(file, plot = plot(mtcars), width = 12, height = 7.7)
    }
  )

}
  
shinyApp(ui, server)

edited Jun 2, 2021 at 8:38

answered May 31, 2021 at 19:10

Pabort

3481 silver badge12 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

Wei Over a year ago

This works for downloading the plot. However, ShinyAlert doesn't close itself when I press the "Confirm" button.

Pabort Over a year ago

I added some js in order to close the shinyalert when you click on the "Confirm" btn.

Lazarus Thurston Over a year ago

There has to be a more elegant method to invoke the downloadbutton from inside a modal popup like shinyalert, as confirmation button is very likely to be on a popup @Pabort

Collectives™ on Stack Overflow

ShinyAlert as input inside downloadHandler

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related