From 2e27fbb95c08cdba8c499d56f1dcbe753048ab60 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Wed, 29 Dec 2021 21:15:50 +0100
Subject: [PATCH] plots: Add more information to scores plot hover

---
 R/plots.R | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/R/plots.R b/R/plots.R
index df7736d..72ff486 100644
--- a/R/plots.R
+++ b/R/plots.R
@@ -193,8 +193,16 @@ plot_scores <- function(ranking, gene_sets = NULL, max_rank = NULL) {
                 data = gene_set_data[gene %chin% gene_set],
                 x = ~percentile,
                 y = ~score,
-                text = ~name,
                 color = gene_set_name,
+                text = ~name,
+                customdata = ~rank,
+                hovertemplate = paste0(
+                    "<b>%{text}</b><br>",
+                    "Score: %{y:.3}<br>",
+                    "Rank: %{customdata}<br>",
+                    "Percentile: %{x:.2%}",
+                    "<extra></extra>"
+                ),
                 marker = list(size = 20, opacity = 0.66)
             )
         }