cy <- CytoscapeConnection ()
title <- 'createWindowFromSelection demo'
cw <- new.CytoscapeWindow (title, makeSimpleGraph ())
displayGraph (cw)
redraw (cw)
layoutNetwork(cw)
selectNodes (cw, c ('A', 'C'))
new.window.title <- 'NEW WINDOW'
if (new.window.title %in% as.character (getWindowList (cy)))
deleteWindow (cy, new.window.title)
c2 <- createWindowFromSelection (cw, new.window.title, TRUE)
redraw (c2)
layoutNetwork(c2)
clearSelection (c2)
selectNodes (c2, 'C')
print (getSelectedNodeCount (c2)) # should be 1
Run the code above in your browser using DataLab