Mercurial > repos > prog > lcmsmatching
diff fshlp.R @ 0:3afe41d3e9e7 draft
planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit bb4d3e23d99828bfee16d31d794c49a17313ec2f
| author | prog |
|---|---|
| date | Mon, 11 Jul 2016 09:12:03 -0400 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/fshlp.R Mon Jul 11 09:12:03 2016 -0400 @@ -0,0 +1,20 @@ +if ( ! exists('extname')) { # Do not load again if already loaded + + source('strhlp.R') + + ########### + # EXTNAME # + ########### + + extname <- function(path) { + return(sub('^.*\\.([^.]*)$', '\\1', path, perl = TRUE)) + } + + ############## + # REMOVE EXT # + ############## + + remove.ext <- function(path) { + return(sub('\\.[^.]*$', '', path)) + } +}