From 27f66d7f354e0093eb2678694d6ae8b2ff1b9bad Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Wed, 22 Jun 2022 12:39:26 +0200
Subject: [PATCH] Add custom genes details table

---
 R/server.R | 4 ++++
 R/ui.R     | 4 +++-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/R/server.R b/R/server.R
index 4896842..00600c3 100644
--- a/R/server.R
+++ b/R/server.R
@@ -76,6 +76,10 @@ server <- function(input, output, session) {
     box_plot(ranked_data(), custom_genes())
   )
 
+  output$custom_genes_details <- DT::renderDT({
+    genes_table(ranked_data()[gene %chin% custom_genes()])
+  })
+
   output$scores_plot <- plotly::renderPlotly(scores_plot(
     ranked_data(),
     highlighted_genes = custom_genes()
diff --git a/R/ui.R b/R/ui.R
index 56bb791..2d1e671 100644
--- a/R/ui.R
+++ b/R/ui.R
@@ -75,7 +75,9 @@ ui <- function() {
               "Your genes",
               value = "custom_genes",
               htmlOutput("custom_genes_synopsis"),
-              plotly::plotlyOutput("custom_genes_boxplot")
+              plotly::plotlyOutput("custom_genes_boxplot"),
+              div(class = "p-1"),
+              DT::dataTableOutput("custom_genes_details")
             ),
             tabPanel(
               "Top genes",