Shiny使用循环从输入赋值反应变量

library(shiny)

ui <- fluidPage(
  # 创建一个输入框和一个按钮
  textInput("input_text", "输入文本"),
  actionButton("submit_btn", "提交"),
  
  # 创建一个输出区域
  uiOutput("output_area")
)

server <- function(input, output) {
  # 创建一个反应变量列表
  reactive_values <- reactiveValues()
  
  # 监听按钮点击事件
  observeEvent(input$submit_btn, {
    # 获取输入框的值
    input_text <- input$input_text
    
    # 将输入的值赋值给反应变量
    reactive_values[[input_text]] <- input_text
  })
  
  # 动态生成输出区域
  output$output_area <- renderUI({
    output_list <- list()
    
    # 遍历反应变量列表，生成输出内容
    for (key in names(reactive_values)) {
      output_list[[key]] <- verbatimTextOutput(outputId = key)
    }
    
    do.call(tagList, output_list)
  })
  
  # 更新输出内容
  observe({
    # 遍历反应变量列表，更新输出内容
    for (key in names(reactive_values)) {
      output[[key]] <- renderPrint({
        reactive_values[[key]]
      })
    }
  })
}

shinyApp(ui, server)