如何在R-shiny中从模式屏幕捕获事件？

library(shiny)

ui <- fluidPage(
  actionButton("openModal", "Open Modal"),
  tags$head(tags$script(src = "modal.js"))
)

server <- function(input, output, session) {
  modal <- modalDialog(
    title = "My Modal",
    textInput("modalText", "Enter some text:"),
    actionButton("submitModal", "Submit")
  )

  observeEvent(input$openModal, {
    showModal(modal)
  })

  observeEvent(input$submitModal, {
    showModal(modal)
  })
}

$(document).on('click', '#submitModal', function() {
  var inputText = $('#modalText').val();
  Shiny.onInputChange('modalSubmitted', {text: inputText});
  $(this).closest('.modal').modal('hide');
});