diff --git a/R/leMsMs.r b/R/leMsMs.r index 8faa38f0857c0195aabfa4961af0b036b1f6c8c4..7b513e354268ae9eed5316865d2dc65f483a7d92 100755 --- a/R/leMsMs.r +++ b/R/leMsMs.r @@ -457,6 +457,8 @@ analyzeMsMs <- function(msmsPeaks, mode="pH", detail=FALSE, run="preliminary", ## ); .checkMbSettings() + if(msmsPeaks@found == FALSE) + return(msmsPeaks) # Check whether the spectra can be fitted to the spectra list correctly! if(length(msmsPeaks@children) != length(spectraList)) @@ -469,9 +471,6 @@ analyzeMsMs <- function(msmsPeaks, mode="pH", detail=FALSE, run="preliminary", } - if(msmsPeaks@found == FALSE) - return(msmsPeaks) - if(method=="formula") { r <- analyzeMsMs.formula(msmsPeaks, mode, detail, run, filterSettings)