From 0a07b9e5b05126f711685c287afd60b870b2f5dd Mon Sep 17 00:00:00 2001
From: igor <6363505+igordot@users.noreply.github.com>
Date: Mon, 3 Mar 2025 10:07:42 -0500
Subject: [PATCH] Clean up code

---
 R/msigdbr.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/msigdbr.R b/R/msigdbr.R
index b9aeccd..77ee998 100644
--- a/R/msigdbr.R
+++ b/R/msigdbr.R
@@ -162,7 +162,7 @@ msigdbr <- function(species = "Homo sapiens", db_species = "HS", collection = NU
   mdb <- dplyr::arrange(mdb, .data$gs_name, .data$db_gene_symbol, .data$gene_symbol)
 
   # Add columns from the old msigdbr output if old arguments are present
-  if (lifecycle::is_present(category) | lifecycle::is_present(subcategory)) {
+  if (lifecycle::is_present(category) || lifecycle::is_present(subcategory)) {
     mdb <- dplyr::mutate(
       mdb,
       entrez_gene = .data$ncbi_gene,