From 55f2fcdfb1e6045693df65b5a25d21b61fc05639 Mon Sep 17 00:00:00 2001
From: SouraTR <51744901+SouraTR@users.noreply.github.com>
Date: Sun, 10 Jul 2022 22:26:18 +0530
Subject: [PATCH] Update DIASpectra.R

---
 R/DIASpectra.R | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/R/DIASpectra.R b/R/DIASpectra.R
index 7228b21..78f84e9 100644
--- a/R/DIASpectra.R
+++ b/R/DIASpectra.R
@@ -104,9 +104,19 @@ setMethod(
       rt.apex.ms1 <- peak.ms1.ext.smooth[idx.apex.ms1, 'rt']
       if (nrow(peak.ms1.smooth) < 4) {
         return(NULL)
-      }
+      }      
 
       spec.exp.ext <- scan.ms2[idx.ms2.ext]
+      
+      ##added errror handling
+      if (length(idx.apex.ms1) == 0) {
+        return(NULL)
+      }
+      if (idx.apex.ms1 > length(spec.exp.ext)) { 
+        return(NULL)
+      }
+      ##added errror handling
+      
       spec.apex <- spec.exp.ext[[idx.apex.ms1]]
       idx.ms2.intfilter <- which(spec.apex[,2] >= int.filter &
                                    spec.apex[, 1] <= mz.max)