From b2e2dbf1afb4a6bb3e385bd4a97e4bc7ffcd1050 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Wed, 20 Oct 2021 11:30:32 +0200
Subject: [PATCH] Fix assessment synopsis

---
 server.R | 27 ++++++++++++++++++++-------
 1 file changed, 20 insertions(+), 7 deletions(-)

diff --git a/server.R b/server.R
index df95a8e..55bf97b 100644
--- a/server.R
+++ b/server.R
@@ -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
         )
     })