Nothing
updateSVN = function(dir, source, param)
{
oldwd = getwd()
setwd(dir)
on.exit(setwd(oldwd))
usr = pwd = args = character()
## if(nchar(source@password))
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))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.