diff MsDbInputDataFrameStream.R @ 6:f86fec07f392 draft default tip

planemo upload commit c397cd8a93953798d733fd62653f7098caac30ce

--- a/MsDbInputDataFrameStream.R	Wed Apr 19 10:00:05 2017 -0400
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,99 +0,0 @@
-if ( ! exists('MsDbInputDataFrameStream')) { # Do not load again if already loaded
-
-	library(methods)
-	source('MsDbInputStream.R')
-
-	#####################
-	# CLASS DECLARATION #
-	#####################
-	
-	MsDbInputDataFrameStream <- setRefClass("MsDbInputDataFrameStream", contains = 'MsDbInputStream', fields = list( .df = "ANY", .i = "integer", .rtunit = 'character'))
-	
-	###############
-	# CONSTRUCTOR #
-	###############
-	
-	MsDbInputDataFrameStream$methods( initialize = function(df = data.frame(), input.fields = msdb.get.dft.input.fields(), rtunit = MSDB.RTUNIT.SEC, ...) {
-		
-		callSuper(input.fields = input.fields, ...)
-
-		.df <<- df
-		.i <<- 0L
-		.rtunit <<- rtunit
-	})
-
-	##########
-	# GET MZ #
-	##########
-
-	MsDbInputDataFrameStream$methods( getMz = function() {
-
-		if (.self$.i > 0 && .self$.i <= nrow(.self$.df) && ! is.null(.self$.input.fields[[MSDB.TAG.MZ]]))
-			return(.self$.df[.self$.i, .self$.input.fields[[MSDB.TAG.MZ]]])
-
-		return(NULL)
-	})
-
-	##########
-	# GET RT #
-	##########
-
-	MsDbInputDataFrameStream$methods( getRt = function() {
-
-		rt <- NULL
-
-		if (.self$.i > 0 && .self$.i <= nrow(.self$.df) && ! is.null(.self$.input.fields[[MSDB.TAG.RT]])) {
-			rt <- .self$.df[.self$.i, .self$.input.fields[[MSDB.TAG.RT]]]
-			if (.self$.rtunit == MSDB.RTUNIT.MIN)
-				rt <- rt * 60
-		}
-
-		return(rt)
-	})
-
-	###########
-	# GET ALL #
-	###########
-
-	MsDbInputDataFrameStream$methods( getAll = function(but = NULL) {
-
-		if (.self$.i > 0 && .self$.i <= nrow(.self$.df)) {
-
-			vals <- .self$.df[.self$.i, , drop = FALSE]
-
-			if ( ! is.null(but))
-				vals <- vals[, ! colnames(vals) %in% .self$.input.fields[but], drop = FALSE]
-
-			return(vals)
-		}
-
-		return(NULL)
-	})
-
-	###############
-	# NEXT VALUES #
-	###############
-
-	MsDbInputDataFrameStream$methods( nextValues = function() {
-
-		if (.self$.i <= nrow(.self$.df))
-			.i <<- .self$.i + 1L
-	})
-
-	###################
-	# HAS NEXT VALUES #
-	###################
-
-	MsDbInputDataFrameStream$methods( hasNextValues = function() {
-		return(.self$.i < nrow(.self$.df))
-	})
-
-	#########
-	# RESET #
-	#########
-
-	MsDbInputDataFrameStream$methods( reset = function() {
-		.i <<- 0L
-	})
-
-} # end of load safe guard