build_metamran/build_metamran.R

In wush978/pvm: Package Version Manager for R

.libPaths(".lib")
library(git2r, ".lib")
library(yaml, ".lib")
if (!file.exists(repo.path <- "gh-pages")) {
  # dir.create(repo.path, showWarnings = FALSE)
  # I suggest to use command line: git clone --depth 1 -b gh-pages https://github.com/wush978/metamran gh-pages
  git2r::clone(url = "https://github.com/wush978/metamran", branch = "gh-pages", local_path = repo.path)
}
repo <- git2r::repository(repo.path)
git2r::pull(repo = repo)
msg <- git2r::revparse_single(repo, "gh-pages")@message
date <- as.Date(regmatches(msg, regexec("Update: (\\d{4}-\\d{2}-\\d{2})", msg))[[1]][2])
stopifnot(!is.na(date))
infos <- dir(repo.path, pattern = "info.yml", full.names = TRUE, recursive = TRUE)
metamran <- new.env(parent = emptyenv())
pb <- txtProgressBar(max = length(infos), style = 3)
for(info in infos) {
  version <- basename(dirname(info))
  package <- basename(dirname(dirname(info)))
  obj <- yaml::yaml.load_file(info)
  key <- sprintf("%s_%s", package, version)
  assign(key, obj, envir = metamran)
  setTxtProgressBar(pb, getTxtProgressBar(pb) + 1)
}
assign(".date", date, envir = metamran)
close(pb)
save(metamran, file = "../data/metamran.rda", compress = "bzip2")