From 8753cb08900045e0763e9be7aa293e98de62a490 Mon Sep 17 00:00:00 2001 From: Daniel Claborne Date: Tue, 17 Dec 2024 15:22:24 -0800 Subject: [PATCH] fix error checks for inclusion of element_col_names in e_meta during object creation --- R/as.ftmsData.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/R/as.ftmsData.R b/R/as.ftmsData.R index 9919bf3..f62afe9 100644 --- a/R/as.ftmsData.R +++ b/R/as.ftmsData.R @@ -129,7 +129,7 @@ as.peakData <- function(e_data, f_data, e_meta, edata_cname, fdata_cname, mass_c } # Check that non-NULL elements in element_col_names are present within e_meta for(element in names(element_col_names)){ - if(!is.null(element_col_names[[element]]) && ! element %in% names(e_meta)){ + if(!is.null(element_col_names[[element]]) && !element_col_names[[element]] %in% names(e_meta)){ stop(paste("The following element in 'element_col_names' is not found in e_meta: ", element)) } }