Clean up code

igordot · Feb 24, 2025 · 586d906 · 586d906
1 parent dbd5781
commit 586d906
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/msigdbr.R b/R/msigdbr.R
@@ -60,12 +60,12 @@ msigdbr <- function(species = "Homo sapiens", db_species = "HS", collection = NU
     subcollection <- subcategory
   }
 
-  # Get the gene sets table or use an internal Hallmark dataset without msigdbdf
+  # Get the gene sets table from msigdbdf or use an internal test dataset
   if (requireNamespace("msigdbdf", quietly = TRUE)) {
-    # Get the gene sets table
+    # Get the full gene sets data frame (filter later if needed)
     mdb <- msigdbdf::msigdbdf(target_species = db_species)
   } else {
-    if (species == "Homo sapiens" && db_species == "HS") {
+    if (db_species == "HS") {
       # Use an internal dataset for minimal functionality without msigdbdf
       mdb <- testdb
       message("The 'msigdbdf' package must be installed to access the full dataset.")