From 1e10b546eb78a3023d9cb375cd57e5809f42fb74 Mon Sep 17 00:00:00 2001 From: Christina Schmidt Date: Tue, 14 Jan 2025 14:42:52 +0100 Subject: [PATCH 1/2] remove comma --- DESCRIPTION | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/DESCRIPTION b/DESCRIPTION index 2dbc46b..95b1ae3 100644 --- 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", From 6223131b0677cc0c29dd9584e6b6576b6e90c427 Mon Sep 17 00:00:00 2001 From: Christina Schmidt Date: Tue, 14 Jan 2025 15:10:08 +0100 Subject: [PATCH 2/2] Update GetPriorKnoweldge.R --- R/GetPriorKnoweldge.R | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/R/GetPriorKnoweldge.R b/R/GetPriorKnoweldge.R index 3a5fed0..9badeab 100644 --- 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