如何在R shiny中输入出生日期时自动显示年龄？

library(shiny)

ui <- fluidPage(
  titlePanel("计算年龄"),
  sidebarLayout(
    sidebarPanel(
      dateInput("dob", "出生日期：", value = Sys.Date())  # 添加日期输入框
    ),
    mainPanel(
      textOutput("age")  # 添加文本输出框
    )
  )
)

server <- function(input, output) {
  output$age <- renderText({
    dob <- input$dob  # 获取输入的出生日期
    age <- as.integer((Sys.Date() - dob) / 365.25)  # 计算年龄
    paste("年龄：", age, "岁")  # 将年龄转换为字符串并返回
  })
}

shinyApp(ui, server)