comparison KeggConn.R @ 1:45e985cd8e9e draft

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

0:3afe41d3e9e7

if ( ! exists('KeggConn')) { # Do not load again if already loaded

	source('BiodbConn.R')
	source('KeggCompound.R')
	
	#####################
	# CLASS DECLARATION #
	#####################
	
	KeggConn <- setRefClass("KeggConn", contains = "BiodbConn")

	##########################
	# GET ENTRY CONTENT TYPE #
	##########################

	KeggConn$methods( getEntryContentType = function(type) {
		return(RBIODB.TXT)
	})

	#####################
	# GET ENTRY CONTENT #
	#####################

	KeggConn$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.KEGG, x, content.type = RBIODB.TXT)), FUN.VALUE = '')

			return(content)
		}

		return(NULL)
	})

	################
	# CREATE ENTRY #
	################

	KeggConn$methods( createEntry = function(type, content, drop = TRUE) {
		return(if (type == RBIODB.COMPOUND) createKeggCompoundFromTxt(content, drop = drop) else NULL)
	})

} # end of load safe guard

1:45e985cd8e9e

#####################
# CLASS DECLARATION #
#####################

KeggConn <- methods::setRefClass("KeggConn", contains = "RemotedbConn")

##########################
# GET ENTRY CONTENT TYPE #
##########################

KeggConn$methods( getEntryContentType = function() {
	return(BIODB.TXT)
})

#####################
# GET ENTRY CONTENT #
#####################

KeggConn$methods( getEntryContent = function(id) {

	# Initialize return values
	content <- rep(NA_character_, length(id))

	# Request
	content <- vapply(id, function(x) .self$.get.url(get.entry.url(BIODB.KEGG, x, content.type = BIODB.TXT)), FUN.VALUE = '')

	return(content)
})

################
# CREATE ENTRY #
################

KeggConn$methods( createEntry = function(content, drop = TRUE) {
	return(createKeggEntryFromTxt(content, drop = drop))
})