如何在Shiny会话结束时自动保存用户输入？

这个报错的原因很明确：input$integer是一个反应式值，它只能在活跃的反应上下文（比如observe、reactive、render*这类函数内部）中被访问。当session$onSessionEnded()的回调函数执行时，当前会话的反应式环境已经关闭了，所以直接访问input$integer会触发这个错误。

解决方案：提前缓存输入值 #

我们需要在会话持续期间，把用户的输入值同步保存到一个可以在非反应上下文中访问的存储里，这样会话结束时就能直接读取这个缓存的值来保存。这里推荐两种可靠的方式：

方法1：使用reactiveVal（推荐，符合Shiny反应式范式）

reactiveVal是Shiny提供的用于存储可变值的工具，它可以在反应上下文中更新，也可以在非反应上下文中安全取值：

ui <- fluidPage( 
  sidebarLayout( 
    sidebarPanel( 
      sliderInput("integer", "Integer:", min = 0, max = 1000, value = 500) 
    ), 
    mainPanel(tableOutput("values"), actionButton('save_inputs', 'Save inputs') ) 
  )) 

server <- function(input, output, session) {
  # 初始化一个reactiveVal来存储当前输入值
  cached_integer <- reactiveVal(input$integer)
  
  # 当滑块输入变化时，自动更新缓存的值
  observe({
    cached_integer(input$integer)
  })

  sliderValues <- reactive({
    value = input$integer
  })

  output$values <- renderTable({
    sliderValues()
  })

  observeEvent(input$save_inputs,{
    saveRDS(input$integer, file = 'integer.RDS')
  })

  # 会话结束时，从缓存中取值并保存
  session$onSessionEnded(function() {
    saveRDS(cached_integer(), file = 'integer.RDS')
    # 可选：打印日志确认保存操作
    cat("Session ended, saved integer value:", cached_integer(), "\n")
  })
} 

shinyApp(ui = ui, server = server)

方法2：使用局部环境变量（适合简单场景）

你也可以在server函数的局部环境中定义一个变量，通过observe跟踪输入变化来更新它：

server <- function(input, output, session) {
  # 初始化局部变量存储输入值
  current_integer <- input$integer
  
  # 监听输入变化，更新局部变量
  observe({
    current_integer <<- input$integer
  })

  # ...（其余代码和上面一致）

  session$onSessionEnded(function() {
    saveRDS(current_integer, file = 'integer.RDS')
  })
}

为什么这样能解决问题？ #

两种方法都是在会话活跃期间，把反应式的input$integer值同步到了一个非反应式的存储中。当会话结束时，我们读取的是这个缓存的值，而不是直接访问已经失效的反应式input对象，因此不会触发反应上下文的错误。

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