使用observeEvent包裹clearStore函数时出现错误的原因排查

这个错误的核心原因是clearStore函数需要依赖有效的Shiny session对象来向前端发送清除存储的指令，而在observeEvent这类嵌套的反应式环境中，clearStore默认通过getDefaultReactiveDomain()获取session的逻辑会失效，导致无法调用sendCustomMessage方法。

解决步骤 #

• 在server函数中显式声明session参数：Shiny会自动将当前会话的session对象传递给server函数，只需在参数列表中加入session即可。
• 调用clearStore时显式传入session：在observeEvent内部调用clearStore时，通过session = session参数明确传递会话对象。

示例代码 #

library(shiny)
library(shinyStorePlus)

ui <- fluidPage(
  initStore(),
  sliderInput("slider", "调整滑块", min = 1, max = 100, value = 50),
  actionButton("clear_btn", "Clear data")
)

server <- function(input, output, session) {
  # 初始化滑块输入的存储
  setupStorage(
    inputs = "slider",
    session = session
  )
  
  # 绑定清除按钮的响应逻辑
  observeEvent(input$clear_btn, {
    clearStore(session = session)
  })
}

shinyApp(ui, server)

补充说明 #

直接在server函数顶级作用域调用clearStore能正常工作，是因为此时getDefaultReactiveDomain()可以正确获取到当前的session对象；而在嵌套的反应式环境中，这个方法的返回值不可靠，显式传递session是更稳妥的做法。

内容的提问来源于stack exchange，提问作者Curious Jorge - user9788072