I am using modal-dialogue in R Shiny to get input from the user. In this form, there is a dismiss butto