view MsDbObserver.R @ 1:45e985cd8e9e draft

planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit d4048accde6bdfd5b3e14f5394902d38991854f8-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