small fix for last fix...

rickhelmus · Sep 16, 2024 · 12a6c63 · 12a6c63
1 parent 97207cc
commit 12a6c63
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils-compounds.R b/R/utils-compounds.R
@@ -97,7 +97,7 @@ addCompoundScore <- function(compounds, scoreName, updateScore, scoreWeight)
     {
         compounds@groupAnnotations <- Map(groupNames(compounds), annotations(compounds), f = function(grp, ann)
         {
-            if (max(ann[[scoreName]] == 0))
+            if (max(ann[[scoreName]]) == 0)
                 return(ann)
             ann <- copy(ann)
             norm <- ann[[scoreName]] / max(ann[[scoreName]])