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

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( geposan::plot_scores_by_position(
ranking(), ranking(),
input$positions_plot_chromosome_name, chromosome_name = chromosome,
gene_sets = gene_sets gene_sets = gene_sets
) )
}) })

5
R/ui.R
View file

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