R Shiny动态添加模块的书签保存与恢复功能如何实现

该问题由动态模块的重建逻辑缺失导致：
Shiny的书签恢复机制会先还原所有输入的最终值，包括你点击add按钮的累计次数input$add。但原代码仅在input$add触发变化时单次添加1个模块，当书签恢复直接将input$add赋值为N（比如3）时，仅会触发1次模块添加逻辑，只生成最后1个hist_N模块，前N-1个模块完全没有被重建，自然无法恢复对应状态。

修改服务端逻辑，增加书签恢复时的模块预构建逻辑，将模块添加封装为公共函数，确保所有历史模块都能被完整重建后再恢复输入值：

library(shiny)

histogramUI <- function(id) {
  tagList(
    fluidRow(column( 4, selectInput(NS(id, "var"), "Variable", choices = names(mtcars)),
                     numericInput(NS(id, "bins"), "bins", value = 10, min = 1)),
             column(8, plotOutput(NS(id, "hist"))))
  )
}


histogramServer <- function(id) {
  moduleServer(id, function(input, output, session) {
    data <- reactive(mtcars[[input$var]])
    output$hist <- renderPlot({
      hist(data(), breaks = input$bins, main = input$var)
    }, res = 96)
  })
}

ui <- function(request){
  fluidPage(
    bookmarkButton(),
    actionButton("add", "Add"),
    div(id = "add_here")
  )
}

server <- function(input, output, session) {
  # 封装模块添加公共逻辑
  add_histogram <- function(n) {
    histogramServer(paste0("hist_", n))
    insertUI(selector = "#add_here", ui = histogramUI(paste0("hist_", n)))
  }
  
  # 应用初始化时，若为书签恢复场景，预构建所有历史模块
  observe({
    req(input$add)
    isolate({
      if (input$add > 0) {
        lapply(1:input$add, add_histogram)
      }
    })
  }, once = TRUE)
  
  # 监听新增按钮点击，添加新模块
  observeEvent(input$add, {
    # 初始化预构建已处理过历史值，仅处理新增的当前值
    if (input$add > 0) {
      add_histogram(input$add)
    }
  }, ignoreInit = TRUE)
  
}

shinyApp(ui, server, enableBookmarking = "server")

修改后添加任意数量的动态模块，调整参数后保存书签，重新打开书签即可完整恢复所有模块的输入配置和输出结果。

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