Mercurial > repos > prog > lcmsmatching
diff fshlp.R @ 6:f86fec07f392 draft default tip
planemo upload commit c397cd8a93953798d733fd62653f7098caac30ce
| author | prog |
|---|---|
| date | Fri, 22 Feb 2019 16:04:22 -0500 |
| parents | fb9c0409d85c |
| children |
line wrap: on
line diff
--- a/fshlp.R Wed Apr 19 10:00:05 2017 -0400 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,20 +0,0 @@ -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)) - } -}