cw <- new.CytoscapeWindow ('setEdgeTooltipDirect.test', graph=makeSimpleGraph())
displayGraph (cw)
layoutNetwork(cw, 'jgraph-spring')
redraw (cw)
edges.of.interest = as.character (cy2.edge.names (cw@graph))
# first try passing three edges and three tooltips
setEdgeTooltipDirect (cw, edges.of.interest, c ('tooltip #1', 'tooltip #2', 'tooltip #3'))
redraw (cw)
Sys.sleep (1)
# now try passing three edges and one tooltip
setEdgeTooltipDirect (cw, edges.of.interest, 'a general purpose tooltip')
redraw (cw)
setEdgeTooltipDirect (cw, edges.of.interest, '')
redraw (cw)
Run the code above in your browser using DataLab