diff MsDbLogger.R @ 0:e66bb061af06 draft

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

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MsDbLogger.R	Tue Jul 12 12:02:37 2016 -0400
@@ -0,0 +1,32 @@
+if ( ! exists('MsDbLogger')) { # Do not load again if already loaded
+
+	source('MsDbObserver.R')
+	
+	#####################
+	# CLASS DECLARATION #
+	#####################
+	
+	MsDbLogger <- setRefClass("MsDbLogger", contains = 'MsDbObserver', fields = list(.verbose = 'numeric', .file = 'ANY' ))
+	
+	###############
+	# CONSTRUCTOR #
+	###############
+	
+	MsDbLogger$methods( initialize = function(verbose = 1, file = NULL, ...) {
+	
+		.verbose <<- if ( ! is.null(verbose) && ! is.na(verbose)) verbose else 1
+		.file <<- if ( ! is.null(file) && ! is.na(file)) file else stderr()
+	
+		callSuper(...) # calls super-class initializer with remaining parameters
+	})
+	
+	############
+	# PROGRESS #
+	############
+	
+	MsDbLogger$methods( progress = function(msg, level = 1) {
+		if (.self$.verbose >= level)
+			cat(msg, "\n", sep = '', file = .self$.file)
+	})
+
+} # end of load safe guard