在R Shiny中，如何编写在单击操作按钮时生成额外用户输入的函数？

library(shiny)

ui <- fluidPage(
  actionButton("generate_btn", "生成用户输入"),
  verbatimTextOutput("user_input")
)

ui <- fluidPage(
  actionButton("generate_btn", "生成用户输入"),
  verbatimTextOutput("user_input")
)

server <- function(input, output) {
  observeEvent(input$generate_btn, {
    # 在这里编写生成额外用户输入的代码
  })
}

shinyApp(ui, server)

ui <- fluidPage(
  actionButton("generate_btn", "生成用户输入"),
  verbatimTextOutput("user_input")
)

server <- function(input, output) {
  observeEvent(input$generate_btn, {
    # 生成额外用户输入的函数
    user_input <- showModal(
      modalDialog(
        textInput("extra_input", "请输入额外的内容："),
        footer = tagList(
          actionButton("confirm_btn", "确认"),
          modalButton("取消")
        )
      )
    )
    
    # 显示用户输入的内容
    output$user_input <- renderPrint({
      input$extra_input
    })
  })
}

shinyApp(ui, server)