R/02rampSource-class.R

In sneumann/xcms-presvnbridge: LC/MS and GC/MS Data Analysis

setClass("rampSource",
         representation(rampid="integer"),
         contains="xcmsFileSource",
         validity=function(object) {
             if (object@rampid < 0) {
                 mzR:::rampClose(object@rampid)
                 paste("Could not open mzML/mzXML/mzData file:", object)
             } else TRUE
         })

setMethod("initialize", "rampSource", function(.Object, path) {
    .Object@rampid <- mzR:::rampOpen(path)
    .Object <- setDataPart(.Object, path)
    validObject(.Object)
    .Object
})

setMethod("loadRaw", "rampSource", function(object, includeMSn) {
    on.exit(mzR:::rampClose(object@rampid))
    rawdata <- mzR:::rampRawData(object@rampid)

    if (!missing(includeMSn) && includeMSn) {
        rawdata$MSn <- mzR:::rampRawDataMSn(object@rampid)
    }
    rawdata
})