Add chromosome plot

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(

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",