R/git-helpers.R

In jspijker/ricmdWorkflow: What the Package Does (One Line, Title Case)

#' @import git2r

# Git Helper functions

isValidRepo <- function(workdir) {
    # tests if workdir is valid git repository with remote

    # check if 
    # 1) script directory is part of an git repo
    # 2) repo has a remote

    isrepo <- TRUE

    repo <- git2r::discover_repository(workdir)
    if(is.null(repo)) isrepo <- FALSE

    remote <-  git2r::remote_url(repo)
    if(length(remote)==0) isrepo <- FALSE
    return(isrepo)
}

isDataIgnored <- function() {
    # check if file in datadir() directory is ignored, see git
    # check-ignore

}

isGitIgnored <- function(filename) {
    ret <- system2("git",
                    args=paste("check-ignore",filename),
                    stdout=NULL)

    res <- ifelse(ret==0,FALSE,TRUE)
    return(res)
}


getGitMeta <- function() {
    # get git information and transform it into avu tripples

    x <-list(
                root=git2r::workdir(),
                repo=basename(git2r::workdir()),
                status=git2r::status(),
                modified=ifelse(length(git2r::status()$unstaged)>0,TRUE,FALSE),
                sha=git2r::sha(git2r::last_commit()),
                branch=git2r::repository_head(git2r::repository())$name,
                remote=git2r::remote_url()[1]
                ) 
    return(x)
}