在Shiny中使用reactiveTimer时，如何“记住”上一次迭代中的信息？

library(shiny)

ui <- fluidPage(
  textOutput("last_iteration"),
  actionButton("start", "Start Timer"),
  actionButton("stop", "Stop Timer")
)

server <- function(input, output, session) {
  # 创建一个reactiveValues对象来存储上一次迭代的信息
  values <- reactiveValues(last_info = NULL)
  
  # 创建一个reactiveTimer对象
  timer <- reactiveTimer(1000)
  
  observeEvent(input$start, {
    # 每次定时器触发时更新信息
    observe({
      timer()
      values$last_info <- Sys.time()
    })
  })
  
  observeEvent(input$stop, {
    # 停止定时器并清空信息
    stopTimer(timer)
    values$last_info <- NULL
  })
  
  output$last_iteration <- renderText({
    # 显示上一次迭代的信息
    if (!is.null(values$last_info)) {
      paste("上一次迭代的时间是：", values$last_info)
    } else {
      "定时器未启动"
    }
  })
}

shinyApp(ui, server)