From 41ffe7736cca9b169058ca89cda2977d1817ff1d Mon Sep 17 00:00:00 2001
From: delfarahalireza <delfarah@calicolabs.com>
Date: Tue, 21 Nov 2023 15:45:42 -0800
Subject: [PATCH] fixing validation check in impute_missing_peaks()

---
 R/mutate_mzroll_list.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/mutate_mzroll_list.R b/R/mutate_mzroll_list.R
index fe71e5a..a066244 100644
--- a/R/mutate_mzroll_list.R
+++ b/R/mutate_mzroll_list.R
@@ -93,7 +93,7 @@ impute_missing_peaks <- function(mzroll_list,
   
   features <- mzroll_list$features %>% dplyr::select(groupId)
   
-  if(!all(features$groupId %in% lod_values$groupId) | nrow(features) != nrow(lod_values)) {
+  if(!all(features$groupId %in% lod_values$groupId)) {
     stop("groupId values of lod_value table and feature table of triple omic data must match")
   }