如何在R闪亮应用程序中存储反应变量的先前状态？

# 在server函数中设置先前状态
server <- function(input, output, session) {
  # 初始化先前状态变量
  if (is.null(session$previous_state)) {
    session$previous_state <- reactiveValues()
    session$previous_state$variable <- NULL
  }
  
  # 存储先前状态
  observeEvent(input$reactive_variable, {
    session$previous_state$variable <- input$reactive_variable
  })
  
  # 使用先前状态
  output$previous_state <- renderText({
    paste("先前状态值为：", session$previous_state$variable)
  })
}

# 在UI中显示先前状态
ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      # 输入反应变量
      textInput("reactive_variable", "输入反应变量")
    ),
    mainPanel(
      # 显示先前状态
      verbatimTextOutput("previous_state")
    )
  )
)

# 运行应用程序
shinyApp(ui, server)

# 创建ReactiveValues对象并存储先前状态
rv <- reactiveValues(variable = NULL)

observeEvent(input$reactive_variable, {
  rv$variable <- input$reactive_variable
})

output$previous_state <- renderText({
  paste("先前状态值为：", rv$variable)
})