Update metric_calc.R

updating to use run_numbers from the input data frame
JGCRI · Apr 17, 2024 · 1bd6e7d · 1bd6e7d
1 parent 0d3185b
commit 1bd6e7d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/metric_calc.R b/R/metric_calc.R
@@ -36,7 +36,7 @@ metric_calc <- function(x, metric) {
   df <- as.data.frame(metric_result)
 
   # producing run numbers
-  run_number <- 1:nrow(df)
+  run_number <- unique(x$run_number)
 
   # Adding cols for run_number
   df$run_number <- run_number