cw <- new.CytoscapeWindow ('setEdgeSourceArrowOpacityDirect.test', graph=makeSimpleGraph())
displayGraph (cw)
layoutNetwork(cw, 'jgraph-spring')
redraw (cw)
edges.of.interest = as.character (cy2.edge.names (cw@graph))
# make sure the source arrows are visible
setEdgeSourceArrowShapeDirect (cw, edges.of.interest, 'Circle')
# first try passing three edges and three arrow opacity values
setEdgeSourceArrowOpacityDirect (cw, edges.of.interest, c (64, 128, 255))
redraw (cw)
Sys.sleep (1)
# now try passing three edges and one opacity value
setEdgeSourceArrowOpacityDirect (cw, edges.of.interest, 32)
redraw (cw)
# now loop through all of the arrow.opacitys
for (opacity in seq (0, 255, by=45)) {
setEdgeSourceArrowOpacityDirect (cw, edges.of.interest, opacity)
Sys.sleep (1)
redraw (cw)
}
# restore the default
setEdgeSourceArrowOpacityDirect (cw, edges.of.interest, 255)
redraw (cw)
Run the code above in your browser using DataLab