Allow showing all genes in correlation plot

R/server.R

@@ -160,7 +160,8 @@ server <- function(options) {
         method_names[[input$ranking_x]],
         method_names[[input$ranking_y]],
         gene_sets = gene_sets,
-        use_ranks = input$use_ranks
+        use_ranks = input$use_ranks,
+        use_sample = input$use_sample
       )
     })
 

R/style.R

@@ -8,7 +8,8 @@ custom_css <- function() {
       "display: inline-block;",
       "vertical-align: top;",
       "margin-right: 12px;",
-      "}"
+      "}",
+      ".shiny-input-container { width: auto !important; min-width: 200px; }"
     ))
   )
 }

R/ui.R

@@ -66,10 +66,9 @@ ui <- function(options) {
               ),
               tabPanel(
                 title = "Method correlation",
-                div(
-                  style = "margin-top: 16px",
                 div(
                   class = "flow-layout",
+                  style = "margin-top: 16px",
                   selectInput(
                     "ranking_y",
                     label = NULL,
@@ -99,6 +98,17 @@ ui <- function(options) {
                       "Use ranks instead of scores",
                       value = TRUE
                     )
+                  ),
+                  div(
+                    style = paste0(
+                      "display: inline-block;",
+                      "padding: 0.375rem 0.75rem;"
+                    ),
+                    checkboxInput(
+                      "use_sample",
+                      "Take random sample of genes",
+                      value = TRUE
+                    )
                   )
                 ),
                 plotly::plotlyOutput(
@@ -106,7 +116,6 @@ ui <- function(options) {
                   width = "100%",
                   height = "600px"
                 )
-                )
               ),
               tabPanel(
                 title = "Comparison",
@@ -134,6 +143,7 @@ ui <- function(options) {
               tabPanel(
                 title = "Scores by position",
                 div(
+                  class = "flow-layout",
                   style = "margin-top: 16px",
                   selectInput(
                     "positions_plot_chromosome_name",