Shiny中新增PickerInput时如何避免清除已有输入内容？

问题根源 #

原代码每次修改generate_pickers的选择时，都会通过renderUI重新渲染所有pickerInput组件。这会导致已渲染的组件被销毁后重建，不仅丢失之前的选中值，还会造成不必要的重复渲染，影响性能。

解决方案思路 #

通过维护动态的picker集合，仅在用户选择新增picker时添加新组件，而非全部重绘；同时实时保存每个picker的选中值，确保组件状态不丢失。

修改后的完整代码 #

library(shiny)
library(shinyWidgets)
library(tidyverse)

generate_pickers_fun <- function(picker_name, id, selected = NULL){
  picker <- pickerInput(
    inputId = NS(id, picker_name),
    label = picker_name,
    multiple = TRUE,
    choices = LETTERS[1:5],
    selected = selected
  )
  return(picker)
}

ui_mod <- function(id) {
  ns <- NS(id)
  tagList(
    pickerInput(NS(id, "generate_pickers"), choices = c("Picker_1", "Picker_2", "Picker_3", "Picker_4"), multiple = TRUE),
    uiOutput(NS(id, "new_pickers"))
  )
}

server_mod <- function(id) {
  moduleServer(id, function(input, output, session) {
    ns <- session$ns
    # 存储已生成的picker组件和对应的选中值
    rv <- reactiveValues(
      existing_pickers = list(),
      picker_selections = list()
    )
    
    # 实时保存每个picker的选中值
    observe({
      lapply(names(rv$existing_pickers), function(picker_name) {
        rv$picker_selections[[picker_name]] <- input[[picker_name]]
      })
    })
    
    # 监听picker生成列表的变化，仅处理新增/移除的组件
    observeEvent(input$generate_pickers, {
      req(input$generate_pickers)
      
      # 找出需要新增的picker
      new_picker_names <- setdiff(input$generate_pickers, names(rv$existing_pickers))
      if(length(new_picker_names) > 0){
        # 生成新picker，自动恢复之前的选中值（如果有）
        new_pickers <- map(new_picker_names, function(name) {
          generate_pickers_fun(name, id, selected = rv$picker_selections[[name]])
        })
        names(new_pickers) <- new_picker_names
        # 添加到已存在的picker集合
        rv$existing_pickers <- c(rv$existing_pickers, new_pickers)
      }
      
      # 移除不再需要的picker
      removed_picker_names <- setdiff(names(rv$existing_pickers), input$generate_pickers)
      if(length(removed_picker_names) > 0){
        rv$existing_pickers <- rv$existing_pickers[!names(rv$existing_pickers) %in% removed_picker_names]
        # 清理对应选中值存储
        rv$picker_selections[removed_picker_names] <- NULL
      }
      
      # 渲染当前所有已存在的picker
      output$new_pickers <- renderUI(tagList(rv$existing_pickers))
    }, ignoreNULL = FALSE)
  })
}

app <- function() {
  ui <- fluidPage(
    ui_mod("test")
  )
  server <- function(input, output, session) {
    server_mod("test")
  }
  shinyApp(ui, server)  
}

app()

关键改动说明 #

• 动态维护picker集合：用rv$existing_pickers存储已生成的组件，只添加新的、移除不需要的，避免全部重绘
• 实时保存选中状态：通过observe监听每个picker的输入变化，将选中值存入rv$picker_selections，确保组件重建时能恢复状态
• 增量更新：用setdiff计算新增和待移除的picker，只处理变化部分，提升性能

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