Related to #46
In the following example, a modal is opened, closed, and another modal with a shiny input immediately opens. The input doesn't get bound to shiny (same thing happens with outputs).
library(shiny)
ui <- fluidPage(
actionButton("go", "go")
)
server <- function(input, output, session) {
observeEvent(input$go, {
shinyalert::shinyalert("test 1")
shinyalert::closeAlert()
shinyalert::shinyalert("test 2", textInput("text", "text", "test"), html = TRUE)
})
observe({
message(input$text)
})
}
shinyApp(ui, server)
If I add a 500ms delay (either using Sys.sleep() or shinyjs::delay()) after closing the first modal but before showing the second, then the input binding works.