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