## 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)
# Sys.sleep(10)
# RCytoscape::deleteWindow(cwObj)
# }
# ## End(Not run)
Run the code above in your browser using DataLab