Nothing
links.as.edgelist <-
function (links)
{
cbind(rep(0:(length(links) - 1), sapply(links, length)),
unlist(links))
}
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.