Nothing
getDgSparse <- function(graph) {
E = get.edgelist(graph)
A = rbind(cbind(Seq(1,nrow(E)),E[,1],-1),cbind(Seq(1,nrow(E)),E[,2],1))
D = sparseMatrix(i=A[,1], j=A[,2], x=A[,3], dims=c(ecount(graph),vcount(graph)))
return(D)
}
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.