cw <- new.CytoscapeWindow ('setEdgeLineStyleDirect.test', graph=makeSimpleGraph())
displayGraph (cw)
redraw (cw)
layoutNetwork(cw, 'jgraph-spring')
edges.of.interest <- as.character (cy2.edge.names (cw@graph))
supported.styles <- getLineStyles (cw)
# pass three edges and three styles
setEdgeLineStyleDirect (cw, edges.of.interest, supported.styles [5:7])
redraw (cw)
# pass three edges and one style
setEdgeLineStyleDirect (cw, edges.of.interest, supported.styles [8])
redraw (cw)
# now loop through all of the styles
for (style in supported.styles) {
setEdgeLineStyleDirect (cw, edges.of.interest, style)
redraw (cw)
}
# restore the default
setEdgeLineStyleDirect (cw, edges.of.interest, 'SOLID')
redraw (cw)
Run the code above in your browser using DataLab