R/clone_repo.r

In OHI-Science/ohirepos: Create OHI tailored repositories

# clone_repo.r

#' Clone existing repo building from git2r's clone()
#'
#' @param dir_repo local directory where you want to clone the repo (probably somewhere temporary)
#' @param git_url url of repo (e.g. "https://github.com/OHI-Science/arc.git")
#'
#' @return TBD
#' @export
#'
#' @examples
#' \dontrun{# TBD}

clone_repo <- function(dir_repo, url_repo) {

  ## clone repo
  unlink(dir_repo, recursive=TRUE, force=TRUE)
  repo = git2r::clone(url_repo, normalizePath(dir_repo, mustWork=FALSE))

  ## get remote branches # JSL commented out 05/12 to test something
  # remote_branches = sapply(git2r::branches(repo, 'remote'), function(x) str_split(x@name, '/')[[1]][2])

  return(repo)
}