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

Fix assessment synopsis

Browse source
This commit is contained in:
Elias Projahn 2021-10-20 11:30:32 +02:00
parent b2402ea997
commit b2e2dbf1af
1 changed files with 20 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

27
server.R
View file

@ -159,21 +159,34 @@ server <- function(input, output, session) {
output$assessment_synopsis <- renderText({
reference_gene_ids <- genes[suggested | verified == TRUE, id]
reference_count <- results_filtered()[
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
))
max_rank <- as.character(reference_results[, max(rank)])
} else {
mean_rank <- "Unknown"
max_rank <- "Unknown"
}
sprintf(
"Included reference genes: %i/%i<br> \
Mean rank of reference genes: %.1f<br> \
Maximum rank of reference genes: %i",
reference_count,
length(reference_gene_ids),
reference_results[, mean(rank)],
reference_results[, max(rank)]
Mean rank of reference genes: %s<br> \
Maximum rank of reference genes: %s",
included_reference_count,
total_reference_count,
mean_rank,
max_rank
)
})