Mercurial > repos > prog > lcmsmatching

diff nethlp.R @ 0:3afe41d3e9e7 draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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/nethlp.R	Mon Jul 11 09:12:03 2016 -0400
@@ -0,0 +1,24 @@
+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))
+	}
+}