检查Github中是否有更新版本的本地文件,带R

Question

简而言之:我需要在Github上托管的文件中获取上次更改的日期.

总之:鉴于在Github中我有一个文件(一个R工作区),偶尔更新一次,我想在R中创建一个函数来检查我的本地文件是否比回购中的文件旧(如果你"好奇,我的动机在这篇文章的末尾暴露出来了." 这是我正在谈论的文件.

原则上它应该有点简单,因为每个文件都有一个与之关联的历史页面,但是我的知识太差了,不知道如何处理它.此外,这个Q似乎暗示某种方式使用php做我想要的东西,但这对我来说真的是无法识别,所以我不知道它是否能以任何方式提供帮助.

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

胡安先生,谢谢你

动机:我正在一个R基础知识的在线课程中工作,如果练习的解决方案是正确的(即:学生可以立即检查他们的结果),它使用一个系统进行自我检查.该系统使用具有定期更新的功能和数据的文件,因为我经常发现错误和新问题.所以我的目标是有一个功能告诉学生是否有更新的文件.找到一种下载它并替换旧版本的方法也很简洁,但现在是次要的.

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；无需通过命令行即可工作。如果您有安全意识，可以找到有关该主题的文档，但我选择了简单的方式来提交。