Add progress indicator for analysis

2025-10-26 11:17:24 +01:00 · 2021-10-19 15:05:01 +02:00 · 2021-10-19 15:05:01 +02:00 · 079deb0faf
commit 079deb0faf
parent dc0265a13f
1 changed files with 13 additions and 1 deletions
--- 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(