analyze: Fix issue merging scores

This commit is contained in:
Elias Projahn 2022-01-04 14:18:57 +01:00
parent 1ec352b1d9
commit 04809cdc76

View file

@ -47,7 +47,7 @@ analyze <- function(preset, progress = NULL) {
for (method in preset$methods) { for (method in preset$methods) {
method_results <- method$func(preset, method_progress) method_results <- method$func(preset, method_progress)
scores <- merge(scores, method_results$scores) scores <- merge(scores, method_results$scores, by = "gene")
setnames(scores, "score", method$id) setnames(scores, "score", method$id)
results <- c(results, list(method_results)) results <- c(results, list(method_results))