From c78802425c196e29e82496661b9731ab61b1d8a0 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Thu, 4 Aug 2022 11:54:52 +0200
Subject: [PATCH] Add positions plot to results page

---
 R/server.R | 19 +++++++++++++++++++
 R/ui.R     | 11 +++++++++++
 2 files changed, 30 insertions(+)

diff --git a/R/server.R b/R/server.R
index b9a4568..c1ce3a9 100644
--- a/R/server.R
+++ b/R/server.R
@@ -179,6 +179,25 @@ server <- function(options) {
       geposan::plot_boxplot(ranking(), gene_sets)
     })
 
+    output$gene_locations_plot <- plotly::renderPlotly({
+      preset <- preset()
+      gene_sets <- list("Reference genes" = preset$reference_gene_ids)
+      comparison_gene_ids <- comparison_gene_ids()
+
+      if (length(comparison_gene_ids) >= 1) {
+        gene_sets <- c(
+          gene_sets,
+          list("Comparison genes" = comparison_gene_ids)
+        )
+      }
+
+      geposan::plot_positions(
+        preset$species_ids,
+        gene_sets,
+        reference_gene_ids = preset$reference_gene_ids
+      )
+    })
+
     output$positions_plot <- plotly::renderPlotly({
       preset <- preset()
       gene_sets <- list("Reference genes" = preset$reference_gene_ids)
diff --git a/R/ui.R b/R/ui.R
index 0a35a0c..e1179a1 100644
--- a/R/ui.R
+++ b/R/ui.R
@@ -68,6 +68,17 @@ ui <- function(options) {
                   )
                 )
               ),
+              tabPanel(
+                title = "Ortholog locations",
+                div(
+                  style = "margin-top: 16px",
+                  plotly::plotlyOutput(
+                    "gene_locations_plot",
+                    width = "100%",
+                    height = "1200px"
+                  )
+                )
+              ),
               tabPanel(
                 title = "Scores by position",
                 div(