R Shiny(golem)部署shinyapps.io报segfault内存未映射偶发断开服务

根因分析 #

1. 响应式对象用法错误
   你使用shiny::reactiveVal()定义了存储绘图结果的变量r，但reactiveVal仅支持存储单个R对象，你后续用r$plot的方式读写子属性属于非法内存访问，本地Windows/macOS环境未触发内存越界属于侥幸，线上shinyapps.io的Linux环境下就会偶发段错误，这是最可能的核心原因。
2. 竞态条件问题
   你同时定义了两个无依赖的监听逻辑：一个负责在选中的复选框数量不符合要求时调用updateCheckboxGroupInput更新输入值，另一个在点击按钮时直接读取输入值做过滤。当用户操作速度快、服务器响应延迟时，可能出现输入值正在被修改的同时被dplyr::filter读取，引发内存访问异常。
3. 类型不一致隐患
   自定义的getCount函数返回值类型不统一：点击数为0时返回数值0，点击数大于0时返回字符串"more than 0"，后续代码中存在getCount(input$go) >= 1这种字符串和数值混合比较的逻辑，不同R版本对这种非法操作的处理逻辑不同，也可能触发底层异常。
4. 包版本不匹配
   本地环境的shiny、dplyr等核心包版本和shinyapps.io上的版本不一致，部分旧版本dplyr的filter函数处理动态输入向量时存在已知的偶发段错误bug。
5. UI语法笔误
   你提供的UI代码中checkboxGroupInput的选项列表里，"Option 2" = "Option 2"后缺少逗号，若实际代码存在该语法错误，也可能引发前端传值异常。

解决方案 #

• 修正响应式对象定义
  将reactiveVal替换为支持多属性存储的reactiveValues，符合shiny API规范：

# 替换原有定义
r <- shiny::reactiveValues(plot = ggplot(dataframe))

后续读写r$plot的逻辑无需修改。

• 消除竞态条件
  点击按钮时先冻结输入值、做本地合法性校验，使用快照后的静态变量做过滤，避免直接读取正在更新的input值：

observeEvent( input$go , {
  # 冻结输入，避免更新过程中读取产生异常
  shiny::freezeReactiveValue(input, "recycling_option_choice_checkbox")
  # 生成输入快照，做本地合法性校验
  selected_opts <- input$recycling_option_choice_checkbox
  selected_opts <- tail(selected_opts, 3) # 最多保留3个
  if(length(selected_opts) == 0) selected_opts <- "Option 1" # 最少保留1个
  # 用校验后的静态变量过滤
  dataframe_subset<- dataframe %>% 
    dplyr::filter(policy %in% selected_opts)
  r$plot <- ggplot(data = dataframe_subset, ...) 
})

可以保留原有输入限制的提示逻辑，避免用户选中不符合要求的选项。

• 修正函数类型问题
  将getCount函数修改为统一返回布尔值，避免类型混乱：

getCount <-  function(counts) {
  as.integer(counts) >= 1
}

后续所有调用getCount的逻辑直接使用布尔值判断即可，比如将getCount(input$go) == 0改为!getCount(input$go)。

• 统一依赖包版本
  使用renv锁定项目所有依赖包的版本，或者在部署前将shiny、dplyr、golem等核心包升级到最新稳定版，避免版本差异导致的已知bug。
• 修正UI语法错误
  检查checkboxGroupInput的选项列表，补齐缺失的逗号，避免前端传值异常。

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