johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-26 19:27: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 684bffe94f
commit d47eb29ec1
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_y]],
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;",
"vertical-align: top;",
"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(
title = "Method correlation",
div(
class = "flow-layout",
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(
class = "flow-layout",
selectInput(
"ranking_y",
label = NULL,
choices = ranking_choices
style = paste0(
"display: inline-block;",
"padding: 0.375rem 0.75rem;"
),
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(
style = paste0(
"display: inline-block;",
"padding: 0.375rem 0.75rem;"
),
checkboxInput(
"use_ranks",
"Use ranks instead of scores",
value = TRUE
)
checkboxInput(
"use_ranks",
"Use ranks instead of scores",
value = TRUE
)
),
plotly::plotlyOutput(
"ranking_correlation_plot",
width = "100%",
height = "600px"
div(
style = paste0(
"display: inline-block;",
"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(
@ -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",