Create a pop-up modal dialog prompting for user's confirmation. (Confirm / Cancel) #r #shiny

confirm_modal.R

library(shiny)

shinyApp(
  
  # ui ------------------------------------------------------------------------
  
  ui = basicPage(
    actionButton("skip", "Skip"),
    textOutput("status")
  ),
  
  # server --------------------------------------------------------------------
  
  server = function(input, output) {
    
    vals <- reactiveValues(data = NULL)
    
    # create modal
    
    skipModal <- function(failed = FALSE) {
      modalDialog(
        
        "Are you sure you want to skip this form?",
        
        footer = tagList(
          modalButton("Cancel"),
          actionButton("confirm_skip", "Confirm")
          
        )
      )
    }
    
    # show modal
    
    observeEvent(input$skip, {
      showModal(skipModal())
    })
    
    # confirm skip
    
    observeEvent(input$confirm_skip, {
      removeModal()
      vals$data <- "Skipped"
    })
    
    # output
    
    output$status <- renderText({
      if (is.null(vals$data))
        "Not skipped"
      else
        vals$data
    })
  }
)