From a984f1a4a7209ffeff8aea06a74db51b80c8903d Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=C3=81lvaro=20Esteban=20Martos?= <alvaroesteban@uma.es>
Date: Tue, 14 Jan 2025 15:58:13 +0100
Subject: [PATCH] Lines trying to access cl_flags_ora now properly access
 plotter$hash_vars$cl_flags_ora

---
 inst/templates/cl_func_report.txt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/inst/templates/cl_func_report.txt b/inst/templates/cl_func_report.txt
index d7257f2..5839eec 100644
--- a/inst/templates/cl_func_report.txt
+++ b/inst/templates/cl_func_report.txt
@@ -52,8 +52,8 @@ end.rcode-->
   gene_set <- "ORA"
   default_width <- 5
   res <- list()
-  for(funsys in names(cl_flags_ora)) {
-    if(cl_flags_ora[[funsys]] == TRUE) {
+  for(funsys in names(plotter$hash_vars$cl_flags_ora)) {
+    if(plotter$hash_vars$cl_flags_ora[[funsys]] == TRUE) {
       func_clusters <- func_results$WGCNA_ORA_expanded[[funsys]]
       plotter$hash_vars$enrich_obj <- func_clusters[[which(names(func_clusters) == plotter$hash_vars$cl)]]
       gene_attribute_name <- "fold change"