使用shinyWidgets::updateVirtualSelect保存加载输入致Shiny应用崩溃排查

核心错误原因 #

• CSV格式问题：直接将多选的字符向量写入CSV时，会被默认合并为单行字符串，读取后无法还原为有效向量，导致updateVirtualSelect的selected参数传入无效值。
• 空值未处理：加载空文件或未完成文件选择时，读取的内容为空，触发updateVirtualSelect内部依赖参数长度的if判断报错。

修复后的可运行代码 #

library(shiny)
library(shinyWidgets)
library(readr)

ui <- fluidPage(
  virtualSelectInput(
    inputId = "my_select",
    label = "选择字母",
    choices = LETTERS,
    multiple = TRUE,
    selected = NULL
  ),
  textInput("file_name", "保存文件名（不带.csv）", value = "my_selection"),
  actionButton("save_btn", "保存选择"),
  fileInput("load_file", "加载已保存的选择", accept = ".csv"),
  actionButton("load_btn", "加载并更新选择")
)

server <- function(input, output, session) {
  # 保存选择到CSV
  observeEvent(input$save_btn, {
    req(input$my_select)
    # 将多选内容转为单列数据框，确保每个选项单独一行
    selection_df <- data.frame(selected = input$my_select)
    write_csv(selection_df, paste0(input$file_name, ".csv"))
    showNotification("选择已保存", type = "message")
  })
  
  # 加载并更新选择
  observeEvent(input$load_btn, {
    req(input$load_file)
    # 捕获文件读取异常，避免崩溃
    selection_df <- tryCatch(
      read_csv(input$load_file$datapath, show_col_types = FALSE),
      error = function(e) NULL
    )
    # 提取有效选中项，空数据时设为NULL
    selected_items <- if (!is.null(selection_df) && nrow(selection_df) > 0) {
      as.character(selection_df$selected)
    } else {
      NULL
    }
    # 执行更新，兼容NULL参数
    updateVirtualSelect(
      session = session,
      inputId = "my_select",
      selected = selected_items
    )
    showNotification("选择已加载", type = "message")
  })
}

shinyApp(ui, server)

关键修复说明 #

• 规范CSV读写：将多选内容转为单列数据框写入CSV，确保每个选项单独占一行，读取后能直接提取为符合要求的字符向量。
• 异常与空值处理：用tryCatch捕获文件读取错误，空数据场景下将selected参数设为NULL（而非长度0的向量），匹配updateVirtualSelect的参数逻辑。
• 前置输入校验：用req()确保保存/加载动作触发时，已有有效选择或上传文件，避免无意义的执行流程。

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