fIX BUG

shubham1637 · Jan 14, 2021 · 61f2023 · 61f2023
1 parent 72d54cc
commit 61f2023
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/R/align_dia_runs.R b/R/align_dia_runs.R
@@ -585,7 +585,11 @@ alignToRef2 <- function(eXp, ref, idx, analytes, fileInfo, XICs, XICs.ref, param
   globalFit <- globalFits[[pair]]
   adaptiveRT <- params[["RSEdistFactor"]]*RSE[[pair]]
 
-  if(any(is.na(XICs.ref.pep)) || any(is.na(XICs.eXp.pep))) return(df.eXp) # Missing values in chromatogram
+  if(any(sapply(seq_along(XICs.eXp.pep), function(i) any(is.na(XICs.eXp.pep[[i]]))))){
+    message("Missing values in the chromatogram of ", paste0(analytes, sep = " "), "in run ",
+             fileInfo[eXp, "runName"])
+    return(df.eXp) # Missing values in chromatogram
+  }
 
   tAligned <- tryCatch(expr = getAlignedTimesFast(XICs.ref.pep, XICs.eXp.pep, globalFit, adaptiveRT,
                                                   params),