# NOT RUN {
stripPath(c(a = "this.good.path/filename.R", b = "nopath.R", c = "/", d = NA,
e = "only.paths.1/only.paths.2/", ""))
# An example with 'real' files
files <- dir(file.path(path.package(package = "Smisc"), "data"), full.names = TRUE)
print(files)
stripPath(files)
stripPath(stripExtension(files))
# }
Run the code above in your browser using DataLab