From c7ea8fd1c52cf6eb63bf5cb6449a7a11fb2da09f Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Fri, 22 Jul 2022 09:26:43 +0200
Subject: [PATCH] Remove max rank from scores plot

---
 R/server.R | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/R/server.R b/R/server.R
index 30e9578..25e97f6 100644
--- a/R/server.R
+++ b/R/server.R
@@ -85,11 +85,7 @@ server <- function(options) {
         )
       }
 
-      geposan::plot_scores(
-        ranking(),
-        gene_sets = gene_sets,
-        max_rank = results_filtered()[, max(rank)]
-      )
+      geposan::plot_scores(ranking(), gene_sets = gene_sets)
     })
 
     output$rankings_plot <- plotly::renderPlotly({