cy <- CytoscapeConnection ()
cw <- new.CytoscapeWindow ('demo.existing', graph=makeSimpleGraph ())
displayGraph (cw)
cw2 <- existing.CytoscapeWindow ('demo.existing', copy.graph.from.cytoscape.to.R=TRUE)
Run the code above in your browser using DataLab