Nothing
library(WayFindR)
xmlfile <- system.file("pathways/WP3850.gpml", package = "WayFindR")
gr <- GPMLtoIgraph(xmlfile)
cyc <- findCycles(gr)
cyc
lapply(cyc, interpretCycle, graph = gr)
S <- WayFindR:::cycleSubgraph(gr, cyc)
#set.seed(13579)
#L <- igraph::layout_with_graphopt(G)
#plot(G, layout=L)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.