Update chemFormula.R, fixing rformassspectrometry#51

meowcat · Feb 11, 2022 · 977b54e · 977b54e
1 parent e3a622b
commit 977b54e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/chemFormula.R b/R/chemFormula.R
@@ -170,7 +170,7 @@ standardizeFormula <- function(x) {
 #' containsElements("C6H12O6", "NH3")
 containsElements <- function(x, y) {
     mapply(
-        FUN = function(xx, yy)all(.sum_elements(c(xx, -yy)) > 0),
+        FUN = function(xx, yy)all(.sum_elements(c(xx, -yy)) >= 0),
         xx = countElements(x), yy = countElements(y),
         SIMPLIFY = TRUE, USE.NAMES = FALSE
     )