# first, delete existing windows to save memory:
deleteAllWindows(CytoscapeConnection())
cw <- CytoscapeWindow ('setNodeShapeDirect.test', graph=makeSimpleGraph())
displayGraph (cw)
layoutNetwork (cw, 'grid')
getNodeShapes (cw)
setNodeShapeDirect (cw, 'A', 'TRIANGLE')
setNodeShapeDirect (cw, c('B', 'C'), getNodeShapes(cw)[2:3])
setNodeShapeDirect (cw, c('A', 'B', 'C'), 'PARALLELOGRAM')
Run the code above in your browser using DataLab