R/02netCdfSource-class.R

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

setClass("netCdfSource",
         representation(cdf="integer"),
         contains="xcmsFileSource",
         validity=function(object) {
             if (!is.null(attr(object@cdf, "errortext"))) {
                 mzR:::netCDFClose(object@cdf)
                 attr(object@cdf, "errortext")
             } else TRUE
         })

setMethod("initialize", "netCdfSource", function(.Object, path) {
    .Object@cdf <- mzR:::netCDFOpen(path)
    .Object <- setDataPart(.Object, path)
    validObject(.Object)
    .Object
})

setMethod("loadRaw", "netCdfSource", function(object, includeMSn) {
    if (!missing(includeMSn) && includeMSn) {
        warning("Reading of MSn spectra for NetCDF not supported")
    }

    on.exit(mzR:::netCDFClose(object@cdf))
    mzR:::netCDFRawData(object@cdf)
})