Shiny动态组件问题：添加组件时输入值丢失

问题核心：每次点击「Add」按钮新增组件时，之前在「First Company」（或其他已添加组件）中输入的值会丢失，原因是重新渲染组件时没有绑定已有的输入状态，而是每次都生成全新的默认组件。

修改后的完整代码 #

library(shiny)

# 提前定义固定数据，避免每次点击都重复生成
excel_Input <- structure(
  list(
    number = 1:10,
    words = c("one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten"),
    company = c("First Company", "Second Company", "Third Company",
                "Fourth Company", "Fifth Company", "Sixth Company", "Seventh Company",
                "Eighth Company", "Ninth Company", "Tenth Company")
  ),
  row.names = 1:10,
  class = "data.frame"
)

ui <- fluidPage(
  uiOutput("company_inputs"),
  actionButton("add_button", "Add")
)

server <- function(input, output, session) {
  
  # 用reactiveValues跟踪当前已添加的组件数量（初始为0，代表仅显示默认的Gra组件）
  get_data <- reactiveValues(count = 0)
  
  # 统一渲染所有输入组件：默认组件 + 新增的公司组件
  output$company_inputs <- renderUI({
    # 初始化组件列表，先加入默认的Gra组件
    all_components <- list(
      column(
        width = 2,
        textInput(
          "id_zero", 
          label = "Gra", 
          placeholder = "Col",
          # 读取已输入的值，若无则用空字符串
          value = input$id_zero %||% ""
        ),
        numericInput(
          "idexp_zero", 
          label = "", 
          # 读取已输入的数值，若无则用默认值4
          value = input$idexp_zero %||% 4, 
          min = 0, 
          max = 10
        )
      )
    )
    
    # 如果已有新增组件，循环生成并加入列表
    if (get_data$count > 0) {
      company_components <- lapply(1:get_data$count, function(i) {
        word <- excel_Input$words[i]
        company_name <- excel_Input$company[i]
        text_input_id <- paste0("id_", word)
        num_input_id <- paste0("idexp_", word)
        
        column(
          width = 2,
          textInput(
            text_input_id,
            label = company_name,
            placeholder = paste0("Enter the ", company_name),
            # 保留已输入的文本值
            value = input[[text_input_id]] %||% ""
          ),
          numericInput(
            num_input_id,
            label = "",
            # 保留已输入的数值
            value = input[[num_input_id]] %||% 4,
            min = 0,
            max = 10
          )
        )
      })
      all_components <- c(all_components, company_components)
    }
    
    # 将组件列表转换为shiny可识别的标签列表
    do.call(tagList, all_components)
  })
  
  # 点击Add按钮时，增加组件计数（限制最多添加10个，对应excel_Input的行数）
  observeEvent(input$add_button, {
    if (get_data$count < nrow(excel_Input)) {
      get_data$count <- get_data$count + 1
    }
  })
  
}

shinyApp(ui, server)

关键改动说明 #

• 统一组件渲染逻辑：把默认的「Gra」组件和新增的公司组件放在同一个renderUI中，避免分开的uiOutput导致重复渲染冲突。
• 绑定已输入值：每个textInput和numericInput的value参数都通过input[[input_id]] %||% 默认值来读取已有输入，%||%是Shiny内置的操作符，作用是“如果左侧值为空（未输入过），则使用右侧的默认值”。
• 优化数据定义：把固定的excel_Input数据移到server函数外，避免每次点击按钮都重复生成相同数据，提升性能。
• 简化状态管理：用reactiveValues$count直接跟踪新增组件数量，替代原来的数组存储，逻辑更清晰。

内容的提问来源于stack exchange，提问作者manu p