如何让Shiny App在每一分钟整点时自动更新内容

要实现Shiny App整分钟自动更新，核心是把invalidateLater的触发间隔从固定60秒，改为动态计算当前时间到下一个整分钟的间隔，修改后的代码如下：

library(shiny)

ui <- fluidPage(
  h2(textOutput("currentTime"))
)

server <- function(input, output, session) {
  output$currentTime <- renderText({
    # 取当前时间的秒数，计算到下一分钟需要等待的毫秒数
    current_seconds <- as.integer(strftime(Sys.time(), "%S"))
    wait_milliseconds <- (60 - current_seconds) * 1000
    invalidateLater(wait_milliseconds, session)
    
    format(Sys.time(), "%H:%M:%S")
  })
}

shinyApp(ui, server)

实现逻辑说明 #

• 原有方案用固定60秒间隔，更新时间和应用启动时间绑定，无法对齐整分钟
• 新方案每次执行都会计算当前到下一个整分钟的等待时间：比如当前是10:41:07，就等待53秒触发更新，更新后下一次再计算下一个整分钟的等待时间，永远对齐整分钟
• 就算遇到页面卡顿、延迟更新的情况，后续也会自动重新对齐，不会出现时间偏移

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