R/SVNFunctions.R

Defines functions checkStdSVN updateSVN

updateSVN = function(dir, source,  param)
{
    oldwd = getwd()
    setwd(dir)
    on.exit(setwd(oldwd))
    usr = pwd = args = character()
    ## if(nchar([email protected]))
    if(length(source@password)>0 && !is.na(source@password) && nchar(source@password))
        pwd = source@password

    if(length(source@user)> 0 && !is.na(source@user) && nzchar(source@user))
        usr = source@user
    else if(length(pwd) > 0 && nzchar(pwd) && !is.na(pwd))
        usr = system2("whoami", stdout = TRUE, stderr = TRUE)
    
    if(is(source, "GitSVNSource"))
        {
            if(length(pwd) && nchar(pwd))
                pwd = shQuote(paste("echo", pwd, "| "))
            cmd = paste(pwd,"git")
            args = c("svn rebase", usr)
        } else {
            args = c("update", args)
            cmd = "svn"
            if(length(pwd) && nzchar(pwd) )
                args = c(args, paste0("--password=", pwd))
            if(length(usr) && nzchar(usr))
                args = c(args, paste0("--username=", usr))
        }
   
    out = tryCatch(system_w_init(cmd, args = args, intern=TRUE, param = param),
        error = function(x) x)
    if(is(out, "error"))
    {
        logfun(param)(basename(dir), "SVN update failed!", type = "both")
        return(FALSE)
    }
    
    TRUE
}

checkStdSVN = function(dir)
{
    dirs = list.dirs(dir, full.names=FALSE)
    dirs = dirs[!grepl("^\\.", dirs)]

    any(grepl("^trunk$", dirs))
}

Try the switchr package in your browser

Any scripts or data that you put into this service are public.

switchr documentation built on Nov. 17, 2017, 7:54 a.m.