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

results: Add new chromosome overview plot

Browse source
This commit is contained in:
Elias Projahn 2023-11-11 09:51:31 +01:00
parent e2ba8586c4
commit 1dc6315e78
1 changed files with 30 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

53
R/results.R
View file

@ -125,14 +125,16 @@ results_ui <- function(id, options) {
NS(id, "positions_plot_chromosome_name"), NS(id, "positions_plot_chromosome_name"),
label = NULL, label = NULL,
choices = c( choices = c(
list("All chromosomes" = "all"), list(
"Chromosome overview" = "overview",
"All chromosomes" = "all"
),
chromosome_choices() chromosome_choices()
) )
), ),
plotly::plotlyOutput( htmlOutput(
NS(id, "positions_plot"), NS(id, "positions_plot"),
width = "100%", container = \(...) div(style = "width: 100%; height: 600px", ...)
height = "600px"
) )
) )
), ),
@ -410,29 +412,34 @@ results_server <- function(id, options, analysis) {
) )
}) })
output$positions_plot <- plotly::renderPlotly({ output$positions_plot <- renderUI({
preset <- preset() preset <- preset()
gene_sets <- list("Reference genes" = preset$reference_gene_ids)
comparison_gene_ids <- comparison_gene_ids()
if (length(comparison_gene_ids) >= 1) { if (input$positions_plot_chromosome_name == "overview") {
gene_sets <- c( geposan::plot_chromosomes(ranking())
gene_sets, } else {
list("Comparison genes" = comparison_gene_ids) gene_sets <- list("Reference genes" = preset$reference_gene_ids)
comparison_gene_ids <- comparison_gene_ids()
if (length(comparison_gene_ids) >= 1) {
gene_sets <- c(
gene_sets,
list("Comparison genes" = comparison_gene_ids)
)
}
chromosome <- if (input$positions_plot_chromosome_name == "all") {
NULL
} else {
input$positions_plot_chromosome_name
}
geposan::plot_scores_by_position(
ranking(),
chromosome_name = chromosome,
gene_sets = gene_sets
) )
} }
chromosome <- if (input$positions_plot_chromosome_name == "all") {
NULL
} else {
input$positions_plot_chromosome_name
}
geposan::plot_scores_by_position(
ranking(),
chromosome_name = chromosome,
gene_sets = gene_sets
)
}) })
gsea_server("gsea", results) gsea_server("gsea", results)