Shiny动态界面添加输入框时已输入值丢失的解决方法

你的问题出在每次点击"Add Text Input"后，renderUI会重新生成所有输入框，但每个textInput的value都被设为空字符串，导致之前输入的内容被清空。要解决这个问题，我们需要持久化存储已输入的值，在重新渲染输入框时将这些值回填进去。

以下是修改后的完整代码：

library(shiny)

# Define the UI
ui <- fluidPage(
  titlePanel("Dynamic Text Inputs"),
  sidebarLayout(
    sidebarPanel(
      actionButton("addInput", "Add Text Input"),
      actionButton("collectInputs", "Collect Inputs")
    ),
    mainPanel(
      uiOutput("textInputs"),
      textOutput("output")
    )
  )
)

# Define the server logic
server <- function(input, output, session) {
  # 存储所有输入框的当前值，同时跟踪输入框数量
  inputValues <- reactiveValues(
    count = 1,
    values = list()
  )
  
  # 渲染动态输入框：从inputValues中读取已有值作为默认值
  output$textInputs <- renderUI({
    inputList <- lapply(1:inputValues$count, function(i) {
      inputId <- paste0("textInput", i)
      # 如果已有值则回填，否则为空
      currentValue <- inputValues$values[[inputId]] %||% ""
      textInput(inputId = inputId, label = paste("Text Input", i), value = currentValue)
    })
    do.call(tagList, inputList)
  })
  
  # 监听所有输入框的变化，实时更新存储的值
  observe({
    lapply(1:inputValues$count, function(i) {
      inputId <- paste0("textInput", i)
      inputValues$values[[inputId]] <- input[[inputId]]
    })
  })
  
  # 点击添加按钮时，仅增加输入框数量，不重置已有值
  observeEvent(input$addInput, {
    inputValues$count <- inputValues$count + 1
  })
  
  # 收集并展示输入内容
  observeEvent(input$collectInputs, {
    # 从存储中提取所有值
    collected <- unlist(inputValues$values)
    output$output <- renderText({
      paste("Collected Inputs: ", toString(collected))
    })
  })
}

# 辅助函数：处理NULL值，返回默认值
`%||%` <- function(x, y) {
  if (is.null(x)) y else x
}

# Run the application
shinyApp(ui, server)

关键修改说明： #

• 用reactiveValues替代单一的counter：同时存储输入框数量和每个输入框的当前值，实现数据持久化
• 渲染输入框时回填已有值：不再硬编码value = ""，而是从inputValues$values中读取对应输入框的历史值
• 实时监听输入变化：通过observe监听所有输入框的内容变化，及时更新存储的值
• 简化收集逻辑：直接从inputValues$values中读取数据，无需再遍历输入对象

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