From 079deb0faff70ee3f3bbaf335759d523698364d0 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Tue, 19 Oct 2021 15:05:01 +0200
Subject: [PATCH] Add progress indicator for analysis

---
 server.R | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/server.R b/server.R
index d1d0fbf..b6199b1 100644
--- a/server.R
+++ b/server.R
@@ -79,7 +79,19 @@ server <- function(input, output, session) {
         }
 
         # Perform the analysis cached based on the preset's hash.
-        results <- run_cached(rlang::hash(preset), geposan::analyze, preset)
+        results <- withProgress(
+            message = "Analyzing genes",
+            value = 0.0, {
+                run_cached(
+                    rlang::hash(preset),
+                    geposan::analyze,
+                    preset,
+                    function(progress) {
+                        setProgress(progress)
+                    }
+                )
+            }
+        )
 
         # Add all gene information to the results.
         results <- merge(