mapfile <- system.file("extdata/map00260.xml", package="KEGGgraph")
maptest <- parseKGML(mapfile)
## node type
node <- nodes(maptest)[[3]]
getType(node)
## edge type
edge <- edges(maptest)[[5]]
getType(edge)
## reaction type
reaction <- getReactions(maptest)[[5]]
getType(reaction)
Run the code above in your browser using DataLab