## Not run:
# hasCy <- (if (.Platform$OS.type %in% "windows") { (length(grep("Cytoscape", system("tasklist", intern=TRUE))) > 0)})
#
# if hasCy {
# ccResults$BP <- breakEdges(ccResults$BP, 0.8)
# cwObj <- ccOutCyt(ccResults$BP,ccOpts)
# # user selects some nodes in Cytoscape
# RCytoscape::selectNodes(cwObj, c("GO:0007017", "GO:0000226", "GO:0007051", "GO:0007052"))
# savedNodes <- cytOutNodes("random1", cwObj) # save them
# # and selects some other nodes
# RCytoscape::selectNodes(cwObj, c("GO:0071103", "GO:0034728", "GO:0006323", "GO:0030261", "GO:0006334"), preserve.current.selection=FALSE)
# savedNodes <- cytOutNodes("random2", cwObj, savedNodes)
#
# }
# ## End(Not run)
Run the code above in your browser using DataLab