johrpan/geposanui
1
0
Fork 0
mirror of https://github.com/johrpan/geposanui.git synced 2025-10-25 20:07:23 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Show all chromosomes in position plot by default

Browse source
This commit is contained in:
Elias Projahn 2022-05-23 11:39:30 +02:00
parent 17b738378a
commit 47b8d7a1f0
2 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

8
R/server.R
View file

@ -189,9 +189,15 @@ server <- function(options) {
)
}
chromosome <- if (input$positions_plot_chromosome_name == "all") {
NULL
} else {
input$positions_plot_chromosome_name
}
geposan::plot_scores_by_position(
ranking(),
input$positions_plot_chromosome_name,
chromosome_name = chromosome,
gene_sets = gene_sets
)
})

5
R/ui.R
View file

@ -73,7 +73,10 @@ ui <- function(options) {
selectInput(
"positions_plot_chromosome_name",
label = NULL,
choices = chromosome_choices()
choices = c(
list("All chromosomes" = "all"),
chromosome_choices()
)
),
plotly::plotlyOutput(
"positions_plot",