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

Use plots from geposan

Browse source
This commit is contained in:
Elias Projahn 2021-11-15 09:35:47 +01:00
parent f485eadaf5
commit b5957262a3
3 changed files with 21 additions and 57 deletions
Download patch file Download diff file Expand all files Collapse all files

17
R/server.R
View file

@ -154,10 +154,19 @@ server <- function(input, output, session) {
})
output$rank_plot <- plotly::renderPlotly({
rank_plot(
results(),
preset()$reference_gene_ids,
results_filtered()[, max(rank)]
geposan::plot_scores(
ranking(),
gene_sets = list(preset()$reference_gene_ids),
labels = "TPE-OLD genes",
max_rank = results_filtered()[, max(rank)]
)
})
output$boxplot <- plotly::renderPlotly({
geposan::plot_boxplot(
ranking(),
gene_sets = list(preset()$reference_gene_ids),
labels = "TPE-OLD genes"
)
})