view nethlp.R @ 6:b8f70d8216b3 draft

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

if ( ! exists('extract.address')) {

	###################
	# EXTRACT ADDRESS #
	###################

	extract.address <- function(url) {

		addr <- sub('^([0-9A-Za-z.]+).*$', '\\1', url, perl = TRUE)

		return(addr)
	}

	################
	# EXTRACT PORT #
	################

	extract.port <- function(url) {

		port <- sub('^.*:([0-9]+)$', '\\1', url, perl = TRUE)

		return(as.integer(port))
	}
}