Pressing ESC when a modal is open in a gadget causes the gadget to close

[daattali]

When pressing ESC in a modal, it should close the modal (assuming easyClose=TRUE). When pressing ESC in a gadget, it should close the gadget. However, it feels wrong to do both at the same time. I think when a modal is open in a gadget, ESC should close the modal without closing the gadget.

Example:

ui <- miniUI::miniPage(
  miniUI::gadgetTitleBar("test"),
  actionButton("showmodal", "Show modal")
)

server <- function(input, output, session) {
  observeEvent(input$showmodal, {
    showModal(modalDialog(
      "Press ESC",
      easyClose = TRUE
    ))
  })
}
runGadget(ui, server)

I'm not sure if to consider this a shiny issue or a miniUI issue