在触发R shiny中的ObserveEvent之前，如何显示默认值？

library(shiny)

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

server <- function(input, output) {
  # 使用reactive函数创建一个响应式对象，初始值为默认值
  default_value <- reactive({
    input$input_num
  })
  
  # 使用observeEvent来监听输入值的变化
  observeEvent(input$input_num, {
    # 在触发事件之后，输出输入的值
    output$output_text <- renderText({
      paste("输入的数字是：", input$input_num)
    })
  })
  
  # 在触发事件之前，输出默认值
  output$output_text <- renderText({
    paste("默认值是：", default_value())
  })
}

shinyApp(ui, server)