R/gitEdit_RCurl.R

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

gitEdit_RCurl <- function (File, gitPath = ifelse(is.null(subDir), paste0(repoPath., "/", branch, "/"), 
      paste0(repoPath., "/", branch, "/", subDir, "/")), branch = 'master', repoPath. = repoPath, subDir = 'R', ...)
{
   if (!(is.character(substitute(File)))) 
        File <- paste0(deparse(substitute(File)), ".R")
    
    rgit::gitAFile_RCurl(paste0(gitPath, File), "script", File = File, show = FALSE, ...)
    
    if(file.exists('W:/Win_apps/npp/notepad++.exe'))
       system(paste0('C:/Windows/System32/cmd.exe /C start W:/Win_apps/npp/notepad++.exe "', getwd(), '/', File, '"'))
    
    if(file.exists('C:/Win_apps/Notepad++/notepad++.exe'))
       system(paste0('C:/Windows/System32/cmd.exe /C start C:/Win_apps/Notepad++/notepad++.exe "', getwd(), '/', File, '"'))
    
    if (file.exists("C:/Program Files/Notepad++/notepad++.exe")) 
       system(paste0('C:/Windows/System32/cmd.exe /C start "" "C:/Program Files/Notepad++/notepad++.exe" \"', getwd(), "/", File, "\""))
    
    invisible()
}