From 9cbc12717732050122e399faeeb603a4b50611ce Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Fri, 12 Nov 2021 18:22:22 +0100
Subject: [PATCH] Fix some analysis bugs

---
 R/analyze.R | 2 +-
 R/preset.R  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/analyze.R b/R/analyze.R
index d813200..f14cf96 100644
--- a/R/analyze.R
+++ b/R/analyze.R
@@ -53,7 +53,7 @@ analyze <- function(preset, progress = NULL) {
             method_results <- methods[[method_id]](preset, method_progress)
             setnames(method_results, "score", method_id)
 
-            analysis <- merge(
+            results <- merge(
                 results,
                 method_results,
                 by = "gene"
diff --git a/R/preset.R b/R/preset.R
index 1e16f79..a08a80f 100644
--- a/R/preset.R
+++ b/R/preset.R
@@ -52,7 +52,7 @@ preset <- function(methods = c(
 print.geposan_preset <- function(x, ...) {
     cat("geposan preset:")
     cat("\n  Included methods: ")
-    cat(x$method_ids, sep = ", ")
+    cat(x$methods, sep = ", ")
 
     cat(sprintf(
         "\n  Input data: %i species, %i genes",