From 9a285fd91ba5faa69e4e1096e97805613ab677f8 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Mon, 22 Nov 2021 13:54:04 +0100
Subject: [PATCH] Add chromosome plot

---
 R/server.R | 4 ++++
 R/ui.R     | 8 ++++++++
 2 files changed, 12 insertions(+)

diff --git a/R/server.R b/R/server.R
index 5931a7d..5146536 100644
--- a/R/server.R
+++ b/R/server.R
@@ -195,6 +195,10 @@ server <- function(input, output, session) {
         )
     })
 
+    output$chromosome_plot <- plotly::renderPlotly({
+        geposan::plot_chromosomes(ranking())
+    })
+
     output$gost <- plotly::renderPlotly({
         if (input$enable_gost) {
             result <- gprofiler2::gost(
diff --git a/R/ui.R b/R/ui.R
index 64a588e..f628cc3 100644
--- a/R/ui.R
+++ b/R/ui.R
@@ -52,6 +52,14 @@ ui <- fluidPage(
                             height = "600px"
                         )
                     ),
+                    div(
+                        style = "margin-top: 16px",
+                        plotly::plotlyOutput(
+                            "chromosome_plot",
+                            width = "100%",
+                            height = "600px"
+                        )
+                    ),
                 ),
                 tabPanel(
                     "Analysis",