Mercurial > repos > prog > lcmsmatching
diff fshlp.R @ 0:e66bb061af06 draft
planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit 3529b25417f8e1a5836474c9adec4b696d35099d-dirty
| author | prog |
|---|---|
| date | Tue, 12 Jul 2016 12:02:37 -0400 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/fshlp.R Tue Jul 12 12:02:37 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)) + } +}