window.name <- 'demo addCyEdge'
cw <- new.CytoscapeWindow (window.name, graph=makeSimpleGraph ())
displayGraph (cw)
directed = TRUE
addCyEdge (cw, 'A', 'B', 'synthetic rescue', directed)
redraw (cw)
layoutNetwork(cw)
Run the code above in your browser using DataLab