R Shiny页面刷新后已保存Selectize输入无法加载的问题求助

问题根源 #

• 应用启动时的全局代码saveRDS(savedGroups, file="./savedGroups.rdata")会覆盖已存在的保存文件，导致之前的分组丢失。
• UI中的savedGroup选择框是静态初始化的，仅在应用启动时读取一次RDS文件，页面刷新后不会重新读取最新的保存内容，因此看不到已存在的分组，直到触发保存操作时才会更新选项。

解决方案 #

1. 避免启动时覆盖保存文件：检查文件是否存在，仅在文件不存在时创建空列表。
2. 动态生成保存分组选项：用renderUI在server端动态生成savedGroup选择框，确保每次页面刷新都读取最新的RDS内容。
3. 优化数据读写逻辑：保存时先读取最新的RDS内容再追加，避免全局变量与文件内容不同步。
4. 简化加载操作：移除冗余的清空步骤，直接更新选择框的选中值。

修改后的完整代码 #

library(shiny)

# 初始化保存文件：仅当文件不存在时创建空列表
if (!file.exists("./savedGroups.rdata")) {
  saveRDS(list(), file="./savedGroups.rdata")
}

ui <- fluidPage(
  fluidRow(
    column(4,
           selectizeInput(inputId = 'species',
                          label = 'Select Species:',
                          choices = iris$Species,
                          selected = NULL,
                          multiple = TRUE),
           selectizeInput(inputId = 'petalLength',
                          label = 'Select Petal Length:',
                          choices = sort(iris$Petal.Length),
                          selected = NULL,
                          multiple = TRUE),
           selectizeInput(inputId = 'petalWidth',
                          label = 'Select Petal Width:',
                          choices = sort(iris$Petal.Width),
                          selected = NULL,
                          multiple = TRUE)
    ),
    column(4,
           # 改为动态生成的UI，由server端控制
           uiOutput("savedGroupUI"),
           actionButton(inputId = "loadGroup", label = "Load Saved Group"),
           HTML('<br>'), HTML('<br>'), HTML('<br>'),
           textInput(inputId = 'newGroupName', label = 'New Group Name:', value = "", width = '12vw', placeholder = NULL),
           actionButton(inputId = "saveGroup", label = "Save Group")
    )
  )
)

server <- function(input, output, session){
  
  # 动态生成保存分组选择框
  output$savedGroupUI <- renderUI({
    savedGroups <- readRDS('./savedGroups.rdata')
    selectizeInput(inputId = 'savedGroup',
                   label = 'Saved Groups:',
                   choices = sort(names(savedGroups)),
                   selected = '',
                   multiple = FALSE)
  })
  
  observeEvent(input$loadGroup, {
    savedGroups <- readRDS('./savedGroups.rdata')
    targetGroup <- savedGroups[[input$savedGroup]]
    
    # 直接更新选中值，无需先清空
    updateSelectizeInput(session, 'species', selected = targetGroup$species)
    updateSelectizeInput(session, 'petalLength', selected = targetGroup$petalLength)
    updateSelectizeInput(session, 'petalWidth', selected = targetGroup$petalWidth)
  })
  
  observeEvent(input$saveGroup, {
    # 先读取最新的保存内容，再追加新分组，避免全局变量不同步
    savedGroups <- readRDS('./savedGroups.rdata')
    newGroup <- list(list(species = input$species,
                          petalLength = input$petalLength,
                          petalWidth = input$petalWidth))
    names(newGroup) <- input$newGroupName
    
    savedGroups <- append(savedGroups, newGroup)
    saveRDS(savedGroups, file="./savedGroups.rdata")
    
    # 更新选择框选项
    updateSelectizeInput(session, 'savedGroup', choices = sort(names(savedGroups)))
    updateTextInput(session, 'newGroupName', value = '')
  })
}

shinyApp(ui, server)

关键改动说明 #

• 初始化逻辑：用file.exists检查文件，仅在无文件时创建空列表，避免覆盖已有数据。
• 动态UI生成：renderUI会在页面刷新时重新执行，读取最新的RDS内容生成选择框选项，确保刷新后能看到所有已保存分组。
• 读写同步：保存时先读取最新的RDS文件再追加，不再依赖全局变量savedGroups，避免内存中的变量与文件内容不一致的问题。
• 简化加载操作：移除了冗余的清空步骤，直接设置选中值，提升效率。

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