@@ -191,9 +191,11 @@ netCDFRawData <- function(ncid) {

     if (!is.null(attr(pointValues, "errortext")))

         stop("Couldn't read mass/intensity values")

+    startTimeStamp <- netCDFAttText(ncid, "netcdf_file_date_time_stamp")

     return(list(rt = rt, tic = tic, scanindex = scanindex, 

                 mz = pointValues$massValues,

-                intensity = pointValues$intensityValues))

+                intensity = pointValues$intensityValues,

+                startTimeStamp = startTimeStamp))

 }

 netCDFRunInfo <- function(ncid) {

@@ -206,7 +208,7 @@ netCDFRunInfo <- function(ncid) {

                 dStartTime = min (ncraw$rt),

                 dEndTime = max (ncraw$rt),

                 msLevels = NA,

-                startTimeStamp = NA))

+                startTimeStamp = ncraw$startTimeStamp))

 }

@@ -39,7 +39,7 @@ test_runStartTimeStamp_cdf <- function() {

     fh <- mzR::openMSfile(f, backend = "netCDF")

     run_info <- runInfo(fh)

     checkTrue(any(names(run_info) == "startTimeStamp"))

-    checkTrue(is.na(run_info$startTimeStamp))

+    checkTrue(is.character(run_info$startTimeStamp))

     mzR::close(fh)

 }

@@ -57,8 +57,8 @@ para(object)

   including \code{scanCount}, \code{lowMZ}, \code{highMZ},

   \code{dStartTime}, \code{dEndTime} and \code{startTimeStamp}. Note

   that \code{startTimeStamp} can only be extracted from \emph{mzML}

-  files using the \emph{pwiz} backend. A \code{NA} is reported if its

-  value is not available.

+  files using the \emph{pwiz} backend or from \emph{CDF} files. A

+  \code{NA} is reported if its value is not available.

   The \code{instrumentInfo} method returns a named \code{list} including

   instrument manufacturer, model, ionisation technique, analyzer and

   detector. \code{mzRpwiz} will give more additional information including

@@ -84,12 +84,19 @@ para(object)

 \examples{

  library(msdata)

- filepath <- system.file("microtofq", package = "msdata")

- file <- list.files(filepath, pattern="MM14.mzML",

-                     full.names=TRUE, recursive = TRUE)

+

+ file <- system.file("microtofq/MM8.mzML", package = "msdata")

  mz <- openMSfile(file)

  fileName(mz)

  instrumentInfo(mz)

+ runInfo(mz)

+ close(mz)

+

+ file <- system.file("cdf/ko15.CDF", package = "msdata")

+ mz <- openMSfile(file, backend = "netCDF")

+ fileName(mz)

+ instrumentInfo(mz)

+ runInfo(mz)

  close(mz)

  file <- system.file("mzid", "Tandem.mzid.gz", package="msdata")