Shiny modal module stacking?

shiny
,
2

Hi @millerh1. Your code is interesting. You callModule function was triggered by the reactive testOut(), so every time you trigger the callModule will create one new observeEvent to listen the input$doThing. This is the reason why the progress bar appear for the number of time that you trigger the textOut. This can terminate by destroying the observeEvent once it trigger with the argument once = TRUE. Hope I make myself clear.

  observeEvent(input$doThing, {
    ns <- session$ns
    progress <- shiny::Progress$new()
    on.exit(progress$close())
    progress$set(message = "Doing thing!", value = .3)
    Sys.sleep(3)
  }, ignoreInit = TRUE, once = TRUE)
1 Like