Nothing
## under Unix-like OS, we don't have choose.files() and Filters
getFileNames <-
function(fPath=".", fNames, fPat) {
## do we have file names or a name pattern?
files <- if(!missing(fNames)) { # we have file names
if(is.null(fPath) || is.na(fPath)) { # no path is given
fNames # try file names without path
} else { # we have a path
paste(path.expand(fPath), fNames, sep="/")
}
} else if(!missing(fPat)) { # we have a name pattern
list.files(path=fPath, pattern=fPat, full.names=TRUE)
} else {
character(0)
}
return(files)
}
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.