cy <- CytoscapeConnection ()
count.at.start = getWindowCount (cy)
cw2 <- CytoscapeWindow ('getWindowCount.test1', graph=makeSimpleGraph())
cw3 <- CytoscapeWindow ('getWindowCount.test2', graph=makeSimpleGraph())
getWindowCount (cy)
# should be two greater than 'count.at.start'
Run the code above in your browser using DataLab