diff LipidmapsConn.R @ 0:3afe41d3e9e7 draft

planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit bb4d3e23d99828bfee16d31d794c49a17313ec2f

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/LipidmapsConn.R	Mon Jul 11 09:12:03 2016 -0400
@@ -0,0 +1,57 @@
+if ( ! exists('LipdmapsConn')) { # Do not load again if already loaded
+
+	source('BiodbConn.R')
+	source('LipidmapsCompound.R')
+
+	#####################
+	# CLASS DECLARATION #
+	#####################
+
+	LipidmapsConn <- setRefClass("LipidmapsConn", contains = "BiodbConn")
+
+	###############
+	# CONSTRUCTOR #
+	###############
+
+	LipidmapsConn$methods( initialize = function(...) {
+		# From http://www.lipidmaps.org/data/structure/programmaticaccess.html:
+		# If you write a script to automate calls to LMSD, please be kind and do not hit our server more often than once per 20 seconds. We may have to kill scripts that hit our server more frequently.
+		callSuper(scheduler = UrlRequestScheduler$new(t = 20), ...)
+	})
+
+	##########################
+	# GET ENTRY CONTENT TYPE #
+	##########################
+
+	LipidmapsConn$methods( getEntryContentType = function(type) {
+		return(RBIODB.CSV)
+	})
+
+	#####################
+	# GET ENTRY CONTENT #
+	#####################
+
+	LipidmapsConn$methods( getEntryContent = function(type, id) {
+
+		if (type == RBIODB.COMPOUND) {
+
+			# Initialize return values
+			content <- rep(NA_character_, length(id))
+
+			# Request
+			content <- vapply(id, function(x) .self$.scheduler$getUrl(get.entry.url(RBIODB.LIPIDMAPS, x, content.type = RBIODB.CSV)), FUN.VALUE = '')
+
+			return(content)
+		}
+
+		return(NULL)
+	})
+
+	################
+	# CREATE ENTRY #
+	################
+
+	LipidmapsConn$methods( createEntry = function(type, content, drop = TRUE) {
+		return(if (type == RBIODB.COMPOUND) createLipidmapsCompoundFromCsv(content, drop = drop) else NULL)
+	})
+}