r - 在 Shiny session 结束时保存用户输入？

Question

我正在尝试制作 Shiny App，它允许用户保存输入并稍后加载它们。

解决此问题的最简单方法是制作保存输入的保存按钮。这是要演示的基本应用程序:

服务器.R

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) {
  sliderValues <- reactive({
    value = input$integer
  })

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

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

shinyApp(ui = ui, server = server)

但是，我想自动保存，例如我希望在 session 结束时保存输入。 onSessionEnded() 应该是对此的回答，但它无法达到输入值并保存它们。

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

返回错误:警告:

Error in .getReactiveEnvironment()$currentContext: Operation not allowed without an active reactive context. (You tried to do something that can only be done from inside a reactive expression or observer.)

有什么办法可以解决吗？

Answer 1

使用isolate 似乎可以解决问题。

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