diff nethlp.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/nethlp.R	Wed Apr 19 10:00:05 2017 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,24 +0,0 @@
-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))
-	}
-}