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

Further simplify results section

Browse source
This commit is contained in:
Elias Projahn 2021-12-08 14:11:39 +01:00
parent f318cde5e7
commit ffa90cd667
2 changed files with 65 additions and 101 deletions
Download patch file Download diff file Expand all files Collapse all files

42
R/server.R
View file

@ -107,44 +107,6 @@ server <- function(input, output, session) {
geposan::plot_positions(preset$species_ids, gene_sets)
})
output$assessment_synopsis <- renderText({
reference_gene_ids <- preset()$reference_gene_ids
included_reference_count <- results_filtered()[
gene %chin% reference_gene_ids,
.N
]
reference_results <- results()[gene %chin% reference_gene_ids]
total_reference_count <- nrow(reference_results)
if (total_reference_count > 0) {
mean_rank <- as.character(round(
reference_results[, mean(rank)],
digits = 1
))
min_rank <- as.character(reference_results[, min(rank)])
max_rank <- as.character(reference_results[, max(rank)])
} else {
mean_rank <- "Unknown"
min_rank <- "Unknown"
max_rank <- "Unknown"
}
sprintf(
"Included reference genes: %i/%i<br> \
Mean rank of reference genes: %s<br> \
First rank of reference genes: %s<br> \
Last rank of reference genes: %s",
included_reference_count,
total_reference_count,
mean_rank,
min_rank,
max_rank
)
})
output$rank_plot <- plotly::renderPlotly({
preset <- preset()
gene_sets <- list("Reference genes" = preset$reference_gene_ids)
@ -210,10 +172,6 @@ server <- function(input, output, session) {
geposan::plot_boxplot(ranking(), gene_sets)
})
output$chromosome_plot <- plotly::renderPlotly({
geposan::plot_chromosomes(ranking())
})
output$gost <- plotly::renderPlotly({
if (input$enable_gost) {
result <- gprofiler2::gost(