有没有办法在Shiny中使用最近一次运行的结果？

library(shiny)

# 定义一个响应式对象，用于存储最近一次运行的结果
lastResult <- reactiveVal(NULL)

# 定义一个触发事件，当点击按钮时更新最近一次运行的结果
observeEvent(input$runButton, {
  # 执行运算，将结果存储到lastResult中
  result <- runCalculation()
  lastResult(result)
})

# 定义UI界面
ui <- fluidPage(
  actionButton("runButton", "运行计算"),
  textOutput("resultOutput")
)

# 定义服务器逻辑
server <- function(input, output) {
  # 显示最近一次运行的结果
  output$resultOutput <- renderText({
    lastResult()
  })
}

# 运行Shiny应用
shinyApp(ui, server)