view fshlp.R @ 2:9a0288561ba3 draft

planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit 476a081c0da66822f4e77070f5ce59d9f14511f4-dirty

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))
	}
}