如何在Shiny valueBox的副标题中显示当前日期？

你提供的代码无法正常显示日期，因为直接在字符串里写r Sys.Date()不会被Shiny解析。要动态生成包含当前日期的副标题，有两种简单的实现方式：

方法一：使用base R的字符串拼接 #

利用paste0()（或paste()）将固定文本和Sys.Date()的结果拼接成完整的副标题字符串：

output$approvalBox <- renderValueBox({
  valueBox(
    value = "95",
    subtitle = paste0("截至 ", Sys.Date(), " 的上学天数")
  )
})

方法二：使用glue包（更简洁） #

glue包支持在字符串中直接嵌入R表达式，写法更直观。先确保安装并加载包：

library(glue)

output$approvalBox <- renderValueBox({
  valueBox(
    value = "95",
    subtitle = glue("截至 {Sys.Date()} 的上学天数")
  )
})

注意事项 #

• 上述代码需要放在Shiny的server函数内部
• 对应的UI部分要添加valueBoxOutput("approvalBox")才能渲染这个valueBox

内容的提问来源于stack exchange，提问作者Shannon