如何在observeEvent函数中创建一个变量，当这个变量发生变化时会影响整个程序？

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      actionButton("btn_change", "Change Variable")
    ),
    mainPanel(
      textOutput("output")
    )
  )
)

server <- function(input, output, session) {
  # 创建一个响应式变量
  values <- reactiveValues(var = 0)
  
  # 监听按钮点击事件
  observeEvent(input$btn_change, {
    # 修改变量的值
    values$var <- values$var + 1
  })
  
  # 输出变量的值
  output$output <- renderText({
    paste("Variable value:", values$var)
  })
}

shinyApp(ui, server)