johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 11:17:24 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Allow showing all genes in correlation plot

Browse source
This commit is contained in:
Elias Projahn 2022-08-17 16:17:58 +02:00
parent 4e31d4ef79
commit 170a92dd56
3 changed files with 47 additions and 35 deletions
Download patch file Download diff file Expand all files Collapse all files

3
R/server.R
View file

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

3
R/style.R
View file

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

76
R/ui.R
View file

@ -67,45 +67,54 @@ ui <- function(options) {
tabPanel( tabPanel(
title = "Method correlation", title = "Method correlation",
div( div(
class = "flow-layout",
style = "margin-top: 16px", style = "margin-top: 16px",
selectInput(
"ranking_y",
label = NULL,
choices = ranking_choices
),
span(
style = paste0(
"display: inline-block;",
"margin-right: 12px;",
"padding: 0.375rem 0.75rem;"
),
"~"
),
selectInput(
"ranking_x",
label = NULL,
choices = ranking_choices,
selected = "combined"
),
div( div(
class = "flow-layout", style = paste0(
selectInput( "display: inline-block;",
"ranking_y", "padding: 0.375rem 0.75rem;"
label = NULL,
choices = ranking_choices
), ),
span( checkboxInput(
style = paste0( "use_ranks",
"display: inline-block;", "Use ranks instead of scores",
"margin-right: 12px;", value = TRUE
"padding: 0.375rem 0.75rem;"
),
"~"
),
selectInput(
"ranking_x",
label = NULL,
choices = ranking_choices,
selected = "combined"
),
div(
style = paste0(
"display: inline-block;",
"padding: 0.375rem 0.75rem;"
),
checkboxInput(
"use_ranks",
"Use ranks instead of scores",
value = TRUE
)
) )
), ),
plotly::plotlyOutput( div(
"ranking_correlation_plot", style = paste0(
width = "100%", "display: inline-block;",
height = "600px" "padding: 0.375rem 0.75rem;"
),
checkboxInput(
"use_sample",
"Take random sample of genes",
value = TRUE
)
) )
),
plotly::plotlyOutput(
"ranking_correlation_plot",
width = "100%",
height = "600px"
) )
), ),
tabPanel( tabPanel(
@ -134,6 +143,7 @@ ui <- function(options) {
tabPanel( tabPanel(
title = "Scores by position", title = "Scores by position",
div( div(
class = "flow-layout",
style = "margin-top: 16px", style = "margin-top: 16px",
selectInput( selectInput(
"positions_plot_chromosome_name", "positions_plot_chromosome_name",