我会将最后一次部署日期存储在一个本地文件中，该文件将与应用程序代码一起上传到您的Shiny Server。
以下是一个可重复性最低的示例。

部署记录

首先是一个只在部署应用程序时运行的函数，您可以花一些时间将此函数插入到部署脚本中，以便它写入将文件上载到服务器之前的时间。

#' Record the date of app deployment.
record_deployment_date <-
  function(deployment_history_file = "deployment_history.txt") {
    # make sure the file exists...
    if (!file.exists(deployment_history_file)) {
      file.create(deployment_history_file)
    }
    
    # record the time
    deployment_time <- Sys.time()
    cat(paste0(deployment_time, "\n"),
        file = "deployment_history.txt",
        append = TRUE)
  }

然后，您将使用另一个函数来访问上次记录的部署日期。

#' Return the last recorded deployment date of the application.
load_deployment_date <-
  function(deployment_history_file = "deployment_history.txt") {
    deployment_history <- readLines(deployment_history_file)
    
    # return the most recent line
    deployment_history[[length(deployment_history)]]
  }

最小应用程序示例

最后，您可以调用前面的函数并将加载的文本插入到renderText函数中，以显示您的最后部署日期。

ui <- fluidPage(mainPanel(tags$h1("My App"),
                          textOutput("deploymentDate")))

server <- function(input, output, session) {
  output$deploymentDate <- renderText({
    paste0("Deployment Time: ", load_deployment_date())
  })
}

shinyApp(ui, server)

当然，你会想要改变你的deployment_history.txt文件的位置，自定义你的时间格式，等等。你可以进一步包括部署版本。但是，这是你需要开始的最少信息。