From 02ad9eacf635d0573c498ec7b32121c9d6a5e32b Mon Sep 17 00:00:00 2001
From: JoseCorCab <josecordoba@uma.es>
Date: Tue, 29 Oct 2024 14:48:28 +0100
Subject: [PATCH] readable disabled when keytype is empty

---
 inst/scripts/clusters_to_enrichment.R | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/inst/scripts/clusters_to_enrichment.R b/inst/scripts/clusters_to_enrichment.R
index f282375..8c6878b 100755
--- a/inst/scripts/clusters_to_enrichment.R
+++ b/inst/scripts/clusters_to_enrichment.R
@@ -100,7 +100,10 @@ org_db <- get_org_db(current_organism_info)
 
 #Load universe
 readable <-TRUE
- if (is.null(opt$universe) || length(opt$universe) == 0){
+if (opt$gene_keytype == "")
+  readable <-FALSE
+
+if (is.null(opt$universe) || length(opt$universe) == 0){
   universe <- opt$universe
 }else if (file.exists(opt$universe)){
   universe <- read.table(opt$universe)[,1]
@@ -110,8 +113,6 @@ readable <-TRUE
                                     output_id="ENTREZID",
                                     org_db = org_db, 
                                     just_output_ids=TRUE)
-  } else {
-    readable <- FALSE
   }
 }