Merge pull request #91 from saezlab/main

main to dev
saezlab · Jan 15, 2025 · 2176ffc · 2176ffc
2 parents 3b5166a + 6223131
commit 2176ffc
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -9,7 +9,7 @@ Authors@R: c(
     person("Denes", "Turei", role = "aut",
            comment = c(ORCID = "0000-0002-7249-9379")),
     person("Macabe", "Daley", role = "aut",
-           comment = c(ORCID = "0000-0002-8026-7068"))),
+           comment = c(ORCID = "0000-0002-8026-7068")),
     person("Julio", "Saez-Rodriguez", role = "aut",
            comment = c(ORCID = "0000-0002-8552-8976")),
     person("Christian", "Frezza", role = "aut",

diff --git a/R/GetPriorKnoweldge.R b/R/GetPriorKnoweldge.R
@@ -51,6 +51,12 @@ LoadKEGG <- function(){
     KEGG_Metabolite <- readRDS(File_path)
     message("Cached file loaded from: ", File_path)
   }else{# load from KEGG
+    RequiredPackages <- c("KEGGREST")
+    new.packages <- RequiredPackages[!(RequiredPackages %in% installed.packages()[,"Package"])]
+    if(length(new.packages)) install.packages(new.packages)
+
+    suppressMessages(library(KEGGREST))
+
     # 1. Make a list of all available human pathways in KEGG
     Pathways_H <- as.data.frame(KEGGREST::keggList("pathway", "hsa"))  # hsa = human