[R] xmlEventParse returning trimmed content?
Johannes Graumann
johannes_graumann at web.de
Thu Apr 9 16:18:44 CEST 2009
Hello,
I wrote the function below and have the problem, that the "text" bit returns
only a trimmed version (686 chars as far as I can see) of the content under
the "fetchPeaks" condition.
Any hunches why that might be?
Thanks for pointer, Joh
xmlEventParse(fileName,
list(
startElement=function(name, attrs){
if(name == "scan"){
if(.GlobalEnv$ms2Scan == TRUE & .GlobalEnv$scanDone == TRUE){
cat(.GlobalEnv$scanNum,"\n")
MakeSpektrumEntry()
}
.GlobalEnv$scanDone <- FALSE
.GlobalEnv$fetchPrecMz <- FALSE
.GlobalEnv$fetchPeaks <- FALSE
.GlobalEnv$ms2Scan <- FALSE
if(attrs[["msLevel"]] == "2"){
.GlobalEnv$ms2Scan <- TRUE
.GlobalEnv$scanNum <- as.integer(attrs[["num"]])
}
} else if(name == "precursorMz" & .GlobalEnv$ms2Scan == TRUE){
.GlobalEnv$fetchPrecMz <- TRUE
} else if(name == "peaks" & .GlobalEnv$ms2Scan == TRUE){
.GlobalEnv$fetchPeaks <- TRUE
}
},
text=function(text){
if(.GlobalEnv$fetchPrecMz == TRUE){
.GlobalEnv$precursorMz <- as.numeric(text)
.GlobalEnv$fetchPrecMz <- FALSE
}
if(.GlobalEnv$fetchPeaks == TRUE){
.GlobalEnv$peaks <- text
.GlobalEnv$fetchPeaks <- FALSE
.GlobalEnv$scanDone <- TRUE
}
}
)
)
> sessionInfo()
R version 2.9.0 beta (2009-04-03 r48277)
x86_64-pc-linux-gnu
locale:
LC_CTYPE=en_US.UTF-8;LC_NUMERIC=C;LC_TIME=en_US.UTF-8;LC_COLLATE=en_US.UTF-8;LC_MONETARY=en_US.UTF-8;LC_MESSAGES=en_US.UTF-8;LC_PAPER=en_US.UTF-8;LC_NAME=en_US.UTF-8;LC_ADDRESS=en_US.UTF-8;LC_TELEPHONE=en_US.UTF-8;LC_MEASUREMENT=en_US.UTF-8;LC_IDENTIFICATION=en_US.UTF-8
attached base packages:
[1] splines stats graphics grDevices utils datasets methods
[8] base
other attached packages:
[1] caMassClass_1.6 MASS_7.2-46 digest_0.3.1 caTools_1.9
[5] bitops_1.0-4.1 rpart_3.1-43 nnet_7.2-46 e1071_1.5-19
[9] class_7.2-46 PROcess_1.19.1 Icens_1.15.2 survival_2.35-4
[13] RCurl_0.94-1 XML_2.3-0 rkward_0.5.0
loaded via a namespace (and not attached):
[1] tools_2.9.0
More information about the R-help
mailing list