Add chromosomal positions plot

DESCRIPTION

@@ -21,6 +21,7 @@ Imports:
     geposan,
     gprofiler2,
     plotly,
+    purrr,
     rlang,
     rclipboard,
     shiny,

R/server.R

@@ -119,6 +119,13 @@ server <- function(input, output, session) {
         geposan::plot_boxplot(ranking(), gene_sets)
     })
 
+    output$positions_plot <- plotly::renderPlotly(
+        geposan::plot_scores_by_position(
+            ranking(),
+            input$positions_plot_chromosome_name
+        )
+    )
+
     gost <- reactive({
         withProgress(
             message = "Querying g:Profiler",

R/ui.R

@@ -1,4 +1,7 @@
-ui <- div(
+#' Generate the main UI for the application.
+#' @noRd
+ui <- function() {
+    div(
         shinyjs::useShinyjs(),
         rclipboard::rclipboardSetup(),
         navbarPage(
@@ -59,6 +62,22 @@ ui <- div(
                                     )
                                 )
                             ),
+                            tabPanel(
+                                title = "Scores by position",
+                                div(
+                                    style = "margin-top: 16px",
+                                    selectInput(
+                                        "positions_plot_chromosome_name",
+                                        label = NULL,
+                                        choices = chromosome_choices()
+                                    ),
+                                    plotly::plotlyOutput(
+                                        "positions_plot",
+                                        width = "100%",
+                                        height = "600px"
+                                    )
+                                )
+                            ),
                             tabPanel(
                                 title = "Detailed results",
                                 results_ui("results")
@@ -89,4 +108,25 @@ ui <- div(
                 title = "Publication"
             )
         )
-)
+    )
+}
+
+#' Generate a named list for choosing chromosomes.
+#' @noRd
+chromosome_choices <- function() {
+    choices <- purrr::lmap(
+        unique(geposan::genes$chromosome),
+        function(name) {
+            choice <- list(name)
+
+            names(choice) <- paste0(
+                "Chromosome ",
+                name
+            )
+
+            choice
+        }
+    )
+
+    choices[order(suppressWarnings(sapply(choices, as.integer)))]
+}