data(ccData)
# breaking the edges in a ccCompareResult
ccResults$BP <- breakEdges(ccResults$BP, 0.8)
## Not run:
# hasCy <- (if (.Platform$OS.type %in% "windows") { (length(grep("Cytoscape", system("tasklist", intern=TRUE))) > 0)})
#
# if hasCy {
#
# cwObj <- ccOutCyt(ccResults$BP,ccOpts)
# # now breaking them in the CytoscapeWindow object
# breakEdges(cwObj, 0.85)
# Sys.sleep(10)
# RCytoscape::deleteWindow(cwObj)
# }
# ## End(Not run)
Run the code above in your browser using DataLab