view MsDbObserver.R @ 7:882f2f20028b draft

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

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