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

Show gene sets in positions plot

Browse source
This commit is contained in:
Elias Projahn 2022-05-18 17:33:11 +02:00
parent 6a5e5ed9c6
commit 22f5e86625
1 changed files with 15 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

18
R/server.R
View file

@ -119,12 +119,24 @@ server <- function(input, output, session) {
geposan::plot_boxplot(ranking(), gene_sets) geposan::plot_boxplot(ranking(), gene_sets)
}) })
output$positions_plot <- plotly::renderPlotly( output$positions_plot <- plotly::renderPlotly({
preset <- preset()
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)
)
}
geposan::plot_scores_by_position( geposan::plot_scores_by_position(
ranking(), ranking(),
input$positions_plot_chromosome_name input$positions_plot_chromosome_name,
) gene_sets = gene_sets
) )
})
gost <- reactive({ gost <- reactive({
withProgress( withProgress(