update

Author: GuangchuangYu

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: clusterProfiler
 Type: Package
 Title: A universal enrichment tool for interpreting omics data
-Version: 4.15.1.001
+Version: 4.15.1.002
 Authors@R: c(
     person(given = "Guangchuang", family = "Yu",        email = "[email protected]",   role  = c("aut", "cre", "cph"), comment = c(ORCID = "0000-0002-6485-8781")),
     person(given = "Li-Gen",      family = "Wang",      email = "[email protected]",   role  = "ctb"),

NEWS.md

@@ -10,8 +10,9 @@ TODO:
   - e.g. independent test for different omics data and then combine results
 -->
 
-# clusterProfiler 4.15.1.001
+# clusterProfiler 4.15.1.002
 
++ more general regular pattern to remove species suffix in KEGG pathway name (2025-02-27, Thu)
 + remove input duplicated genes in `groupGO()` (2024-11-29, Fri, #741)
 
 # clusterProfiler 4.15.1

R/enrichKEGG.R

@@ -186,7 +186,8 @@ download.KEGG.Path <- function(species) {
 
     keggpathid2name.df <- kegg_list("pathway", species)
 
-    keggpathid2name.df[,2] <- sub("\\s-\\s[a-zA-Z ]+\\([a-zA-Z ]+\\)$", "", keggpathid2name.df[,2])
+    # keggpathid2name.df[,2] <- sub("\\s-\\s[a-zA-Z ]+\\([a-zA-Z ]+\\)$", "", keggpathid2name.df[,2])
+    keggpathid2name.df[,2] <- sub("\\s-\\s[^-]+$", "", keggpathid2name.df[, 2])
     # keggpathid2name.df[,1] %<>% gsub("path:map", species, .)
 
     ## if 'species="ko"', ko and map path are duplicated, only keep ko path.