R/Test.R

In John-R-Wallace-NOAA/rgit: Wrapper for git app, with gitAFile and gitPush

Test <- function(File, gitPath = ifelse(is.null(subDir), paste0(repoPath., "/master/"),
                paste0(repoPath., "/master/", subDir, "/")),  repoPath. = repoPath, subDir = 'R', show = TRUE, ...) {
    if (!(is.character(substitute(File))))
        File <- paste0(deparse(substitute(File)), ".R")
    rgit::gitAFile(paste0(gitPath, File), show = show, ...)     
}