Shiny:如何将从renderUI生成的“反应式输入”作为函数的输入？

library(shiny)

ui <- fluidPage(
  selectInput("input_var", "选择一个变量：", choices = c("变量1", "变量2")),
  uiOutput("dynamic_input"),
  verbatimTextOutput("result")
)

server <- function(input, output, session) {
  # 根据选择的变量生成不同的输入控件
  output$dynamic_input <- renderUI({
    if (input$input_var == "变量1") {
      numericInput("num_input", "输入一个数字：", value = 0)
    } else {
      textInput("text_input", "输入一段文本：", value = "")
    }
  })
  
  # 将生成的反应式输入作为函数的输入
  my_function <- reactive({
    if (input$input_var == "变量1") {
      input$num_input
    } else {
      input$text_input
    }
  })
  
  # 使用反应式输入进行计算，并输出结果
  output$result <- renderPrint({
    result <- my_function()
    # 进行一些计算或处理
    result
  })
}

shinyApp(ui, server)