Nothing
get.file.copy <- function(dir.in, dir.out, fname="", prefix="", key="", ending="", untarbz=FALSE, verbal=TRUE) {
# From given directory dir.in, copies files into dir.out:
# - either list of file names in fname,
# - or all files from dir.in that start from given prefix and end with ending
# and contain keyword key.
# verbal: only matters if fname="", thus function needs to find files. If files can not be
# found and verbal=TRUE then a message would be printed.
#source("get.file.name.R")
# If no list was provided, get files from the directory.
if(all(fname == "")) {
#print("getting file names")
fname <- get.file.name(dir=dir.in, prefix=prefix, key=key, ending=ending, verbal=verbal)
}
# If any files are found to copy, copy them one by one if they don't already exist:
if(fname != "" && length(fname) > 0) {
i <- 1
while(i <= length(fname)) {
newname <- unlist(strsplit(fname[i], "tar.bz2"))
# if uncompression may be needed, and 'tar.bz2' appears at the end, and resultant name is different
# from original and resultant name isn't already in desired directory, extract it.
if(untarbz == TRUE && length(newname) == 1 && newname != fname[i] && !file.exists(paste(dir.out, newname, sep="/"))) {
#print(paste("tar -xjf ", dir.in, "/", fname[i], " -C ", dir.out, sep=""))
system(paste("tar -xjf ", dir.in, "/", fname[i], " -C ", dir.out, sep=""))
}
else if(!file.exists(paste(dir.out, fname[i], sep="/")))
ans <- file.copy(paste(dir.in, fname[i], sep="/"), paste(dir.out, fname[i], sep="/"))
i <- i + 1
}
}
}
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.