From e621761fd6a2cff7e7ebd758289fecbb3f45dee8 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Fri, 22 Jul 2022 09:03:13 +0200
Subject: [PATCH] Show relative  increase in GSEA

---
 R/server.R | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/R/server.R b/R/server.R
index b687f5d..78505d6 100644
--- a/R/server.R
+++ b/R/server.R
@@ -134,12 +134,14 @@ server <- function(input, output, session) {
 
     data[, total_ratio := term_size / effective_domain_size]
     data[, query_ratio := intersection_size / query_size]
+    data[, increase := (query_ratio - total_ratio) / total_ratio]
 
     data <- data[, .(
       source,
       term_name,
       total_ratio,
       query_ratio,
+      increase,
       p_value
     )]
 
@@ -151,6 +153,7 @@ server <- function(input, output, session) {
         "Term",
         "Total ratio",
         "Query ratio",
+        "Increase",
         "p-value"
       ),
       options = list(
@@ -158,7 +161,10 @@ server <- function(input, output, session) {
       )
     ) |>
       DT::formatRound("p_value", digits = 4) |>
-      DT::formatPercentage(c("total_ratio", "query_ratio"), digits = 1)
+      DT::formatPercentage(
+        c("total_ratio", "query_ratio", "increase"),
+        digits = 2
+      )
   })
 
   output$gsea_plot_ranking <- plotly::renderPlotly(gsea_plot_ranking)