AgilentTimeStampExtractor.R

In barupal/MetSkye:

#Author Dinesh Barupal dinkumar@ucdavis.edu

dataDir <- "G:/temp/qtofdata/"

filelist <- dir(dataDir)
filelist <- filelist[grep(".d$",filelist)]

if (!require("XML"))
  install.packages("XML")

library(XML)
con1 <- file(paste0(dataDir,"timeStamps.txt"),"w")

for (i in 1:length(filelist)) {
  xfile <- xmlToList(paste0(dataDir,filelist[i],"/AcqData/sample_info.xml"))
  writeLines(paste(xfile[3]$Field$Value,xfile[24]$Field$Value, sep="\t"), con1)
  print(i)
}
close(con1)