R/sha.R

In ropenscilabs/ozrepro: A simple interface and workflow for version control in R (implemented using git as backend but without the confusion)

get_shas <- function(repo, nchars = NULL) {
  
  # commits   <- git2r::commits(repo)
  # shas      <- vapply(commits, function(x) x@sha, character(1))
  
  shas <- call_system("git", c("rev-list", "--all"))
  
  if (!is.null(nchars)) {
    shas <- substr(shas, 1, nchars)
  }
  
  shas
}