window.title = 'setCenter demo'
cw <- new.CytoscapeWindow (window.title, graph=makeSimpleGraph())
displayGraph (cw)
redraw (cw)
layoutNetwork(cw, 'jgraph-spring')
original.center <- getCenter (cw) # named list, "x" and "y". initial values might be 140 and 90
# now pan the display to the left, by setting the the visual center
# to increasing values of x, without changing the location of the
# simple graph
setCenter (cw, 200, 90)
system ('sleep 1')
setCenter (cw, 300, 90)
system ('sleep 1')
setCenter (cw, 400, 90)
system ('sleep 1')
# and now pan back to the original position
setCenter (cw, 300, 90)
system ('sleep 1')
setCenter (cw, 200, 90)
system ('sleep 1')
setCenter (cw, original.center$x, original.center$y)
Run the code above in your browser using DataLab