# first, delete existing windows to save memory:
deleteAllWindows(CytoscapeConnection())
cw <- CytoscapeWindow ('getNodeSize.test', graph=makeSimpleGraph())
displayGraph (cw)
layoutNetwork(cw)
sizes <- getNodeSize (cw, c ('A', 'B', 'C'))
print (sizes$width)
# [1] 75 75 75
print (sizes$height)
# [1] 35 35 35
setNodeSizeDirect (cw, 'A', 18)
redraw (cw)
print (getNodeSize (cw, 'A'))
# lockNodeDimensions (cw, FALSE) # not required anymore
setNodeWidthDirect (cw, 'A', 30)
setNodeHeightDirect (cw, 'A', 10)
redraw (cw) # not required anymore
sizes <- getNodeSize (cw, 'A')
print (sizes$width)
print (sizes$height)
# lockNodeDimensions (cw, TRUE) # not required anymore
setNodeSizeDirect (cw, 'A', 80)
redraw (cw) # not required anymore
print (getNodeSize (cw, 'A'))
Run the code above in your browser using DataLab