From b6e9179f13bb627b816b08e94792fe4258de34d7 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Thu, 30 Dec 2021 11:54:39 +0100
Subject: [PATCH] server: Show percentiles in results table

---
 R/server.R | 27 ++++++++++++++++++++++++---
 1 file changed, 24 insertions(+), 3 deletions(-)

diff --git a/R/server.R b/R/server.R
index f2ca0c8..888046d 100644
--- a/R/server.R
+++ b/R/server.R
@@ -48,8 +48,25 @@ server <- function(input, output, session) {
     comparison_gene_ids <- comparison_editor_server("comparison_editor", preset)
 
     output$genes <- DT::renderDT({
-        columns <- c("rank", "gene", "name", "chromosome", method_ids, "score")
-        column_names <- c("", "Gene", "", "Chromosome", method_names, "Score")
+        columns <- c(
+            "rank",
+            "gene",
+            "name",
+            "chromosome",
+            method_ids,
+            "score",
+            "percentile"
+        )
+
+        column_names <- c(
+            "",
+            "Gene",
+            "",
+            "Chromosome",
+            method_names,
+            "Score",
+            "Percentile"
+        )
 
         dt <- DT::datatable(
             results_filtered()[, ..columns],
@@ -63,7 +80,11 @@ server <- function(input, output, session) {
             )
         )
 
-        DT::formatPercentage(dt, c(method_ids, "score"), digits = 1)
+        DT::formatPercentage(
+            dt,
+            c(method_ids, "score", "percentile"),
+            digits = 2
+        )
     })
 
     output$copy <- renderUI({