Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Missing Reactions and Enzymes #4

Open
Skourtis opened this issue Sep 18, 2020 · 1 comment
Open

Missing Reactions and Enzymes #4

Skourtis opened this issue Sep 18, 2020 · 1 comment

Comments

@Skourtis
Copy link

Hi,

I'm using the package to retrieve the enzymes and their reactions but the output from the package is missing reactions and enzymes found on the website. For example in the https://www.genome.jp/kegg-bin/show_pathway?hsa00670 pathway, the MTHFD1 (1.5.1.5) protein faciliates a reaction which is missing from the reactions retrieved from the KEGGgraph. Why is this?

Thank you,
Savvas

library(KEGGgraph)

tmp <- tempfile()
genes_reactions <- data.frame(Gene_id = NULL,
Reaction = NULL,
pathway = NULL,
stringsAsFactors = F)
compound_reactions <- data.frame(Reaction = NULL,
Substrate = NULL,
Product = NULL,
Direction = NULL,
pathway = NULL,
stringsAsFactors = F)

j<- "hsa00670"
retrieveKGML(j, organism="hsa", destfile=tmp, method="auto", quiet=TRUE)
testing <- KEGGgraph::parseKGML2Graph(tmp)

test_folate <- KEGGgraph::parseKGML(tmp)

for (i in 1:length(testing@nodeData@defaults[["KEGGNode"]][["nodes"]])){
    df <- data.frame(Gene_id = testing@nodeData@defaults[["KEGGNode"]][["nodes"]][[i]]@entryID,
                     Reaction = testing@nodeData@defaults[["KEGGNode"]][["nodes"]][[i]]@reaction,
                     pathway = j,
                     stringsAsFactors = FALSE)
    genes_reactions <- rbind(genes_reactions,df)
    
}


for (i in 1:length(test_folate@reactions)){
    df <- data.frame(Reaction = test_folate@reactions[[i]]@name,
                     Substrate = test_folate@reactions[[i]]@substrateName,
                     Product = test_folate@reactions[[i]]@productName,
                     Direction = test_folate@reactions[[i]]@type,
                     pathway = j,
                     stringsAsFactors = FALSE)
    compound_reactions <- rbind(compound_reactions,df)
    
}
@EulleSA
Copy link

EulleSA commented Oct 31, 2020

I have the same problem

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Labels
None yet
Projects
None yet
Development

No branches or pull requests

2 participants