r - 检查 Github 中是否有更新版本的本地文件，使用 R

Question

简而言之:我需要获取托管在 Github 上的文件的最后更改日期。

总而言之:鉴于在 Github 中我有一个文件(一个 R 工作区)偶尔会更新，我想在 R 中创建一个函数来检查我的本地文件是否比 repo 中的文件旧(如果你很好奇，我的动机会在这篇文章的末尾公开)。 This is the file我在说。

原则上应该比较简单，因为每个文件都有一个 history page与之相关，但我的知识太贫乏，不知道该怎么做。另外，this Q似乎暗示了使用 php 做我想做的事情的某种方式，但这对我来说真的是未知领域，所以我不知道它是否能以任何方式提供帮助。

因此，正如我在这篇文章的简短版本中所说，我需要找到一种方法来检索该文件的最后一次提交日期。之后我可以找到一些方法将它与本地文件的提交日期进行比较。

提前致谢，胡安

动机:我正在参加一个 R 基础在线类(class)，该类(class)使用一个系统来 self 检查练习的解决方案是否正确(即:学生可以立即检查他们的结果)。这个系统使用一个文件，其中包含定期更新的功能和数据，因为我经常发现错误和新问题。所以我的目标是有一个功能来告诉学生是否有更新的文件可用。找到一种下载它并替换旧版本的方法也很好，但现在这是次要的。

Answer 1

问题是保持下载的git-time。下面的解决方案将文件时间设置为每次下载后的 Git 日期，以便进行下一次检查。

library(RCurl)
library(rjson)
destination = "datos" # assume current directory
repo = "https://api.github.com/repos/jumanbar/Curso-R/"
path = "ejercicios-de-programacion/rep-3/datos"
myopts = curlOptions(useragent="whatever",ssl.verifypeer=FALSE)

d = fromJSON(getURL(paste0(repo,"commits?path=",path),
                useragent="whatever",ssl.verifypeer=FALSE))[[1]]
gitDate  = as.POSIXct(d$commit$author$date)
MustDownload = !file.exists(destination) |  file.info(destination)$mtime > gitDate
if (MustDownload){
  url = d$url
  commit = fromJSON(getURL(url, .opts=myopts))
  files = unlist(lapply(commit$files,"[[","filename"))
  rawfile = commit$files[[which(files==path)]]$raw_url
  download.file(rawfile,destination,quiet=TRUE)
  Sys.setFileTime(destination,gitDate)
  print("File was downloaded")
}

从 R 看来，useragent 和 ssl.verifypeer 是必需的；无需命令行即可工作。如果您有安全意识，可以找到有关该主题的文档，但我选择了简单的提交方式。