如何在其他反应函数中调用shiny的反应函数中定义的变量

library(shiny)

ui <- fluidPage(
  sidebarLayout(
    sidebarPanel(
      numericInput("input_num", "输入一个数字", value = 0)
    ),
    mainPanel(
      verbatimTextOutput("output_text")
    )
  )
)

server <- function(input, output) {
  # 创建一个响应式值对象
  values <- reactiveValues(num = 0)
  
  # 定义一个反应函数，用于更新values$num的值
  observeEvent(input$input_num, {
    values$num <- input$input_num
  })
  
  # 在其他反应函数中调用values$num
  output$output_text <- renderPrint({
    # 使用values$num
    num <- values$num
    paste("输入的数字是：", num)
  })
}

shinyApp(ui, server)