# first, delete existing windows to save memory:
deleteAllWindows(CytoscapeConnection())
cw <- CytoscapeWindow ('setEdgeTargetArrowColorDirect.test', graph=makeSimpleGraph ())
displayGraph (cw)
layoutNetwork (cw, 'force-directed')
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)
Sys.sleep (0.3)
setEdgeTargetArrowColorDirect (cw, edge.names, colors.2)
Sys.sleep (0.3)
} # for i
Run the code above in your browser using DataLab