Mercurial > repos > prog > lcmsmatching
diff MsDbObserver.R @ 0:3afe41d3e9e7 draft
planemo upload for repository https://github.com/workflow4metabolomics/lcmsmatching.git commit bb4d3e23d99828bfee16d31d794c49a17313ec2f
| author | prog |
|---|---|
| date | Mon, 11 Jul 2016 09:12:03 -0400 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/MsDbObserver.R Mon Jul 11 09:12:03 2016 -0400 @@ -0,0 +1,32 @@ +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