view MsDbObserver.R @ 1:253d531a0193 draft

planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit 36c9d8099c20a1ae848f1337c16564335dd8fb2b

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