fixed performance loss during bin metric calculation caused by binnin…

…g dp retrieval
aberHRML · Nov 4, 2021 · d5daf6d · d5daf6d
1 parent 94ea8bf
commit d5daf6d
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/R/calc.R b/R/calc.R
@@ -13,17 +13,19 @@ calcBinList <- function(pks){
 
 calcBinMeasures <- function(pks,cls){
 
+  dp <- binnerDP()
+
   binMeasures <- pks %>%
     group_by_at(vars(all_of(c('fileName',
                               cls,
                               'polarity',
                               'bin')))) %>%
     summarise(purity = binPurity(mz,
                                  intensity,
-                                 dp = binnerDP()),
+                                 dp = dp),
               centrality = binCentrality(mz,
                                          intensity,
-                                         dp = binnerDP()),
+                                         dp = dp),
               .groups = 'drop')
 
   return(binMeasures)