在R Shiny中，如何在模式对话框中反应性地重置用户输入？

ui <- fluidPage(
  actionButton("openDialog", "打开对话框"),
  # ...其他UI组件
  # 在这里创建模态对话框
  modalDialog(
    textInput("input1", "输入1", ""),
    textInput("input2", "输入2", ""),
    actionButton("resetButton", "重置")
  )
)

server <- function(input, output, session) {
  observeEvent(input$openDialog, {
    showModal(modalDialog(
      textInput("input1", "输入1", ""),
      textInput("input2", "输入2", ""),
      actionButton("resetButton", "重置")
    ))
  })
  
  observeEvent(input$resetButton, {
    updateTextInput(session, "input1", value = "")
    updateTextInput(session, "input2", value = "")
  })
  
  # ...其他Server逻辑
}