cw <- new.CytoscapeWindow ('setEdgeTargetArrowColorDirect.test', graph=makeSimpleGraph ())
displayGraph (cw)
redraw (cw)
layoutNetwork(cw, 'jgraph-spring')
arrows = c ('Arrow', 'Diamond', 'Circle')
edgeType.values <- c ('phosphorylates', 'synthetic lethal', 'undefined')
setEdgeTargetArrowRule (cw, 'edgeType', edgeType.values, arrows)
setEdgeTargetArrowRule (cw, 'edgeType', edgeType.values, arrows)
colors.1 = c ("#FFFFFF", "#FFFFFF", "#FFFFFF")
colors.2 = c ("#AA00AA", "#00AAAA", "#0000AA")
edge.names = as.character (cy2.edge.names (cw@graph)) [1:3]
for (i in 1:2) {
setEdgeTargetArrowColorDirect (cw, edge.names, colors.1)
redraw (cw)
Sys.sleep (1)
setEdgeTargetArrowColorDirect (cw, edge.names, colors.2)
redraw (cw)
Sys.sleep (1)
} # for i
Run the code above in your browser using DataLab