#' @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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.