From b018838d376bed144a1ab962af61ddfecd74709a Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Thu, 18 Nov 2021 15:18:07 +0100
Subject: [PATCH] analysis: Cache the analysis object itself

---
 R/analyze.R | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/R/analyze.R b/R/analyze.R
index 8d9b2de..ddc8249 100644
--- a/R/analyze.R
+++ b/R/analyze.R
@@ -47,7 +47,7 @@ analyze <- function(preset, progress = NULL) {
         "proximity" = proximity
     )
 
-    results <- cached("analysis", preset, {
+    analysis <- cached("analysis", preset, {
         total_progress <- 0.0
         method_count <- length(preset$methods)
         results <- data.table(gene = preset$gene_ids)
@@ -75,18 +75,18 @@ analyze <- function(preset, progress = NULL) {
             total_progress <- total_progress + 1 / method_count
         }
 
-        results
+        structure(
+            list(
+                preset = preset,
+                results = results
+            ),
+            class = "geposan_analysis"
+        )
     })
 
     if (!is.null(progress)) {
         progress(1.0)
     }
 
-    structure(
-        list(
-            preset = preset,
-            results = results
-        ),
-        class = "geposan_analysis"
-    )
+    analysis
 }