# first, delete existing windows to save memory:
deleteAllWindows(CytoscapeConnection())
cw <- CytoscapeWindow ('setDefaultNodeShape.test', graph=makeSimpleGraph())
displayGraph (cw)
layoutNetwork (cw, 'grid')
legal.shapes <- getNodeShapes (cw)
#stopifnot ('DIAMOND' %in% legal.shapes)
setDefaultNodeShape (cw, 'DIAMOND')
# redraw (cw) --> not required anymore
Run the code above in your browser using DataLab