comparison MsDbInputStream.R @ 0:e66bb061af06 draft

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

0:e66bb061af06

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

	library('methods')
	source('msdb-common.R')

	#####################
	# CLASS DECLARATION #
	#####################
	
	MsDbInputStream <- setRefClass("MsDbInputStream", fields = list(.input.fields = "ANY"))
	
	###############
	# CONSTRUCTOR #
	###############

	MsDbInputStream$methods( initialize = function(input.fields = msdb.get.dft.input.fields(), ...) {
		
		.input.fields <<- input.fields

		callSuper(...)
	})

	##########
	# GET MZ #
	##########

	MsDbInputStream$methods( getMz = function() {
		stop("Method getMz() not implemented in concrete class.")
	})

	##########
	# GET RT #
	##########

	MsDbInputStream$methods( getRt = function() {
		stop("Method getRt() not implemented in concrete class.")
	})

	###########
	# GET ALL #
	###########

	MsDbInputStream$methods( getAll = function(but = NULL) {
		stop("Method getUnused() not implemented in concrete class.")
	})

	###############
	# NEXT VALUES #
	###############

	MsDbInputStream$methods( nextValues = function() {
		stop("Method nextValues() not implemented in concrete class.")
	})

	###################
	# HAS NEXT VALUES #
	###################

	MsDbInputStream$methods( hasNextValues = function() {
		stop("Method hasNextValues() not implemented in concrete class.")
	})

} # end of load safe guard