diff --git a/R/enrichKEGG.R b/R/enrichKEGG.R index cb4bacc..24c0f99 100644 --- a/R/enrichKEGG.R +++ b/R/enrichKEGG.R @@ -186,7 +186,7 @@ download.KEGG.Path <- function(species) { keggpathid2name.df <- kegg_list("pathway", species) - keggpathid2name.df[,2] <- sub("\\s-\\s[a-zA-Z ]+\\(\\w+\\)$", "", keggpathid2name.df[,2]) + keggpathid2name.df[,2] <- sub("\\s-\\s[a-zA-Z ]+\\([a-zA-Z ]+\\)$", "", keggpathid2name.df[,2]) # keggpathid2name.df[,1] %<>% gsub("path:map", species, .) ## if 'species="ko"', ko and map path are duplicated, only keep ko path.