diff UniprotConn.R @ 2:20d69a062da3 draft

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

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/UniprotConn.R	Thu Mar 02 08:55:00 2017 -0500
@@ -0,0 +1,36 @@
+#####################
+# CLASS DECLARATION #
+#####################
+
+UniprotConn <- methods::setRefClass("UniprotConn", contains = "RemotedbConn")
+
+##########################
+# GET ENTRY CONTENT TYPE #
+##########################
+
+UniprotConn$methods( getEntryContentType = function() {
+	return(BIODB.XML)
+})
+
+#####################
+# GET ENTRY CONTENT #
+#####################
+
+UniprotConn$methods( getEntryContent = function(ids) {
+
+	# Initialize return values
+	content <- rep(NA_character_, length(ids))
+
+	# Request
+	content <- vapply(ids, function(x) .self$.get.url(get.entry.url(BIODB.UNIPROT, x, content.type = BIODB.XML)), FUN.VALUE = '')
+
+	return(content)
+})
+
+################
+# CREATE ENTRY #
+################
+
+UniprotConn$methods( createEntry = function(content, drop = TRUE) {
+	return(createUniprotEntryFromXml(content, drop = drop))
+})