if(is.loaded("readkgmlfile")){ # This is false if libxml2 wasn't available at installation.
filename <- system.file("extdata", "hsa00860.xml", package="NetPathMiner")
# Process KGML file as a metabolic network
g <- KGML2igraph(filename)
plotNetwork(g)
# Process KGML file as a signaling network
g <- KGML2igraph(filename, parse.as="signaling", expand.complexes=TRUE)
plotNetwork(g)
}
Run the code above in your browser using DataLab