view MsDbObserver.R @ 5:18254e8d1b72 draft

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

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

	library('methods')

	#####################
	# CLASS DECLARATION #
	#####################
	
	MsDbObserver <- setRefClass("MsDbObserver", fields = list())
	
	############
	# PROGRESS #
	############
	
	MsDbObserver$methods( progress = function(msg, level = 1) {
	})
	
	###########
	# WARNING #
	###########
	
	MsDbObserver$methods( warning = function(msg) {
	})
	
	#########
	# ERROR #
	#########
	
	MsDbObserver$methods( error = function(msg) {
	})

} # end of load safe guard