# first, delete existing windows to save memory:
deleteAllWindows(CytoscapeConnection())
cw <- CytoscapeWindow ('setEdgeAttributesDirect.test', graph=makeSimpleGraph())
sendNodes(cw)
sendEdges(cw)
edge.names = as.character (cy2.edge.names (cw@graph))
stopifnot (length (edge.names) == 3)
edge.values = c ('alligator', 'hedgehog', 'anteater')
result = setEdgeAttributesDirect (cw, 'misc', 'string', edge.names, edge.values)
Run the code above in your browser using DataLab