R Shiny应用部署时间自动更新：如何固定显示最后部署时间？

为什么部署时间会自动更新？ #

shinyapps.io的运行逻辑是：当应用有新用户访问，或者之前的进程因闲置被系统回收后，会重新启动整个R应用进程。这时候server函数外的所有代码都会重新执行一遍，你写的deployment_time <- lubridate::now()自然会在每次进程启动时计算当前时间，所以多次加载应用后时间会跟着变化。

固定显示部署时间的靠谱方法 #

方法1：读取核心文件的最后修改时间 #

部署时你的应用文件（比如app.R）会被上传到服务器，它的最后修改时间就是部署时间，直接读取这个时间就行：

# 在server函数外定义
deployment_time <- file.mtime("app.R")

# 在UI里展示
ui <- fluidPage(
  h4(paste("最后部署时间：", format(deployment_time, "%Y-%m-%d %H:%M:%S")))
)

要是你的应用拆成了ui.R和server.R，选一个每次部署都会更新的文件即可。

方法2：部署时生成静态时间文件 #

在部署阶段把当前时间写入一个静态文件，后续应用重启只读取这个文件，不重新生成：

# 部署阶段执行（写在server外）
writeLines(as.character(lubridate::now()), "deployment_time.txt")

# 应用启动时读取文件内容
deployment_time <- as.POSIXct(readLines("deployment_time.txt"))

# UI中显示
ui <- fluidPage(
  h4(paste("最后部署时间：", format(deployment_time, "%Y-%m-%d %H:%M:%S")))
)

这个文件会跟着应用一起上传到服务器，后续进程重启只会读取它，时间就固定在部署那一刻了。

方法3：用部署脚本设置环境变量（适合自动化场景） #

如果用脚本自动化部署，可以在部署命令前设置环境变量：

export DEPLOY_TIME=$(date -Iseconds)

然后在R代码里读取这个变量：

deployment_time <- as.POSIXct(Sys.getenv("DEPLOY_TIME"))

这种方法适合需要批量部署或者持续集成的场景。

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