From 7b06f626b979fb2e50a9df0ee68f9133ff7f67f6 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Sun, 29 Aug 2021 15:29:34 +0200
Subject: [PATCH] Add synopsis of results

---
 server.R | 14 ++++++++++++++
 ui.R     |  2 ++
 2 files changed, 16 insertions(+)

diff --git a/server.R b/server.R
index 5d1f75f..bf116d4 100644
--- a/server.R
+++ b/server.R
@@ -87,6 +87,20 @@ server <- function(input, output) {
         )
     })
 
+    output$synposis <- renderText({
+        results <- results()
+
+        sprintf(
+            "Found %i candidates including %i/%i verified and %i/%i suggested \
+            TPE-OLD genes.",
+            results[, .N],
+            results[verified == TRUE, .N],
+            inputs$genes[verified == TRUE, .N],
+            results[suggested == TRUE, .N],
+            inputs$genes[suggested == TRUE, .N]
+        )
+    })
+
     output$scatter <- renderPlot({
         results <- results()
 
diff --git a/ui.R b/ui.R
index 67ddb8c..c5fadb0 100644
--- a/ui.R
+++ b/ui.R
@@ -37,6 +37,8 @@ ui <- fluidPage(
             width = 3
         ),
         mainPanel(
+            h2("Synposis"),
+            textOutput("synposis"),
             div(
                 style = "overflow-x: auto",
                 div(