R/commit_and_push.r

In OHI-Science/ohirepos: Create OHI tailored repositories

#' commit_and_push
#'
#' @param repo_registry data frame with information about the repo 
#' @param commit_message short message in quotes to accompany commit
#' @param branch GitHub branch to push, defaults to 'master'
#'
#' @return
#' @export
#'
#' @examples
#' 
commit_and_push <- function(repo_registry, 
                            commit_message, 
                            branch = 'master'){
  
  ## create variables
  key      <- repo_registry$study_key
  dir_repo <- repo_registry$dir_repo
  
  ## let us know what's going on
  cat(sprintf("git add, commit, and push rendered website for %s repo, ", key))
  cat(sprintf("with commit message '%s'\n", commit_message))
  
  ## cd to dir_repo, git add, commit and push rendered website
  system.time(system(sprintf(
    "cd %s; git add --all;
      git commit -m '%s';
      git push origin %s",
    dir_repo, commit_message, branch)))
  
}