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

assessment: Show comparison genes

Browse source
This commit is contained in:
Elias Projahn 2021-11-15 14:22:33 +01:00
parent 9b9109b389
commit bc99e358c1
1 changed files with 24 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

28
R/server.R
View file

@ -154,19 +154,39 @@ server <- function(input, output, session) {
}) })
output$rank_plot <- plotly::renderPlotly({ output$rank_plot <- plotly::renderPlotly({
gene_sets <- list(preset()$reference_gene_ids)
labels <- c("Reference genes")
comparison_gene_ids <- results()[input$genes_rows_selected, gene]
if (length(comparison_gene_ids) >= 1) {
gene_sets <- c(gene_sets, list(comparison_gene_ids))
labels <- c(labels, "Comparison genes")
}
geposan::plot_scores( geposan::plot_scores(
ranking(), ranking(),
gene_sets = list(preset()$reference_gene_ids), gene_sets = gene_sets,
labels = "Reference genes", labels = labels,
max_rank = results_filtered()[, max(rank)] max_rank = results_filtered()[, max(rank)]
) )
}) })
output$boxplot <- plotly::renderPlotly({ output$boxplot <- plotly::renderPlotly({
gene_sets <- list(preset()$reference_gene_ids)
labels <- c("Reference genes")
comparison_gene_ids <- results()[input$genes_rows_selected, gene]
if (length(comparison_gene_ids) >= 1) {
gene_sets <- c(gene_sets, list(comparison_gene_ids))
labels <- c(labels, "Comparison genes")
}
geposan::plot_boxplot( geposan::plot_boxplot(
ranking(), ranking(),
gene_sets = list(preset()$reference_gene_ids), gene_sets = gene_sets,
labels = "Reference genes" labels = labels
) )
}) })