diff nethlp.R @ 0:e66bb061af06 draft

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

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/nethlp.R	Tue Jul 12 12:02:37 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))
+	}
+}