Use an empty peaklist if XCMS does not detect any peak to avoid an error...

Use an empty peaklist if XCMS does not detect any peak to avoid an error message downstream in the workflow

R/leMsmsRaw.R

@@ -318,6 +318,12 @@ findMsMsHRperxcms.direct <- function(fileName, cpdID, mode="pH", findPeaksArgs =
 	
 	for(i in 1:length(xrs)){
 		peaks(xsmsms[[i]]) <- do.call(findPeaks,c(findPeaksArgs, object = xrs[[i]]))
+
+                if (nrow(peaks(xsmsms[[i]])) == 0) {
+                  spectra[[i]] <- matrix(0,2,7)
+                  next 
+                }
+                
 		## Get pspec 
 		pl <- peaks(xsmsms[[i]])[,c("mz", "rt"), drop=FALSE]