library(graph)
steatosis_json_file <- system.file("extdata", "steatosis_aop_json.cyjs",
package = "aop")
steatosis_aop <- convert_cytoscape_to_aop(steatosis_json_file)
getAOPNodeName(steatosis_aop, "389")
Run the code above in your browser using DataLab