如何创建一个弹出窗口，让用户在R shiny中输入信息？

library(shiny)

ui <- fluidPage(
  titlePanel("弹出窗口示例"),
  sidebarLayout(
    sidebarPanel(
      actionButton("openDialog", "打开弹出窗口")
    ),
    mainPanel(
      textOutput("userInfo")
    )
  )
)

server <- function(input, output, session) {
  # 创建弹出窗口
  observeEvent(input$openDialog, {
    showModal(
      modalDialog(
        textInput("name", "姓名："),
        numericInput("age", "年龄：", value = NULL),
        actionButton("submit", "提交"),
        footer = tagList(
          actionButton("cancel", "取消", icon = icon("times"))
        )
      )
    )
  })
  
  # 处理弹出窗口中的信息
  observeEvent(input$submit, {
    name <- input$name
    age <- input$age
    
    # 执行相应的操作，例如保存用户信息到数据库等
    
    # 关闭弹出窗口
    removeModal()
  })
  
  # 监听弹出窗口的取消按钮
  observeEvent(input$cancel, {
    # 关闭弹出窗口
    removeModal()
  })
  
  # 显示用户信息
  output$userInfo <- renderText({
    paste("姓名：", input$name, "\n年龄：", input$age)
  })
}

shinyApp(ui, server)