Add synopsis of results

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()
 

ui.R

@@ -37,6 +37,8 @@ ui <- fluidPage(
             width = 3
         ),
         mainPanel(
+            h2("Synposis"),
+            textOutput("synposis"),
             div(
                 style = "overflow-x: auto",
                 div(