Modified version of the same function from KEGGgraph
KEGGpathway2Graph(pathway, genesOnly = TRUE, expandGenes = TRUE)