我可以从Shiny中的列表中创建一组反应式输入-输出对吗？

library(shiny)

ui <- fluidPage(
  selectInput("input_var", "选择一个变量：", choices = c("变量1", "变量2", "变量3")),
  textOutput("output_var")
)

server <- function(input, output) {
  reactive_var <- reactive({
    # 根据输入值进行计算或处理
    if (input$input_var == "变量1") {
      return("这是变量1的输出")
    } else if (input$input_var == "变量2") {
      return("这是变量2的输出")
    } else if (input$input_var == "变量3") {
      return("这是变量3的输出")
    }
  })
  
  output$output_var <- renderText({
    reactive_var()
  })
}

shinyApp(ui, server)