From 40164ebf84aa7bbee32b019155ff193f7da6fad9 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Thu, 24 Feb 2022 15:58:24 +0100
Subject: [PATCH] server: Cache analysis transiently

---
 R/server.R | 19 +++++++++----------
 1 file changed, 9 insertions(+), 10 deletions(-)

diff --git a/R/server.R b/R/server.R
index 39fb3a6..4b1cc45 100644
--- a/R/server.R
+++ b/R/server.R
@@ -22,21 +22,20 @@ server <- function(input, output, session) {
 
     # Compute the results according to the preset.
     analysis <- reactive({
-        preset <- preset()
-
-        # Perform the analysis cached based on the preset's hash.
-        analysis <- withProgress(
+        withProgress(
             message = "Analyzing genes",
             value = 0.0,
             { # nolint
-                geposan::analyze(preset, function(progress) {
-                    setProgress(progress)
-                })
+                geposan::analyze(
+                    preset(),
+                    progress = function(progress) {
+                        setProgress(progress)
+                    },
+                    include_results = FALSE
+                )
             }
         )
-
-        analysis
-    })
+    }) |> bindCache(preset())
 
     # Rank the results.
     ranking <- methods_server("methods", analysis, comparison_gene_ids)