Berwin A Turlach wrote: > G'day all, > > On Fri, 9 Jan 2009 08:12:18 -0200 > "Henrique Dallazuanna" <www...@gmail.com> wrote: > > >> Try this also: >> >> substr(basename(myfile), 1, nchar(basename(myfile)) - 4) >> > > Or, in case that the extension has more than three letters or "myfile" > is a vector of names: > > R> myfile <- "path1/path2/myoutput.txt" > R> sapply(strsplit(basename(myfile),"\\."), function(x) > paste(x[1:(length(x)-1)], collapse=".")) > [1] "myoutput" > R> myfile2 <- c(myfile, "path2/path3/myoutput.temp") > R> sapply(strsplit(basename(myfile2),"\\."), function(x) > paste(x[1:(length(x)-1)], collapse=".")) > [1] "myoutput" "myoutput" > R> myfile3 <- c(myfile2, "path4/path5/my.out.put.xls") > R> sapply(strsplit(basename(myfile3),"\\."), function(x) > paste(x[1:(length(x)-1)], collapse=".")) > [1] "myoutput" "myoutput" "my.out.put" > >
or have sub do the job for you: filenames.ext = c("foo.bar", basename("foo/bar/hello.dolly")) (filenames.noext = sub("[.][^.]*$", "", filenames.ext, perl=TRUE)) vQ ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.