From 04b615bb7cdc0ac6a9296f8dbb6118a63f122975 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Thu, 13 Jan 2022 13:37:02 +0100
Subject: [PATCH] server: Generate rankings plot from preset

---
 R/server.R | 29 +++++++++++++----------------
 1 file changed, 13 insertions(+), 16 deletions(-)

diff --git a/R/server.R b/R/server.R
index a70d251..06118fa 100644
--- a/R/server.R
+++ b/R/server.R
@@ -86,6 +86,19 @@ server <- function(input, output, session) {
 
     output$rankings_plot <- plotly::renderPlotly({
         preset <- preset()
+
+        rankings <- list()
+        methods <- preset$methods
+        all <- ranking()
+
+        for (method in methods) {
+            weights <- list()
+            weights[[method$id]] <- 1.0
+            rankings[[method$name]] <- geposan::ranking(all, weights)
+        }
+
+        rankings[["Combined"]] <- all
+
         gene_sets <- list("Reference genes" = preset$reference_gene_ids)
         comparison_gene_ids <- comparison_gene_ids()
 
@@ -96,22 +109,6 @@ server <- function(input, output, session) {
             )
         }
 
-        all <- ranking()
-        clustering <- geposan::ranking(all, list(clustering = 1))
-        correlation <- geposan::ranking(all, list(correlation = 1))
-        neural <- geposan::ranking(all, list(neural = 1))
-        adjacency <- geposan::ranking(all, list(adjacency = 1))
-        proximity <- geposan::ranking(all, list(proximity = 1))
-
-        rankings <- list(
-            "Clustering" = clustering,
-            "Correlation" = correlation,
-            "Neural" = neural,
-            "Adjacency" = adjacency,
-            "Proximity" = proximity,
-            "Combined" = all
-        )
-
         geposan::plot_rankings(rankings, gene_sets)
     })