getVertexAttributes <- function(dt.graph, vertex.name){
attributes <- {dt.graph %>% vertex.attributes} %>% lapply(function(x){
return(x[which(V(dt.graph)$name == vertex.name)])
})
return(attributes)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.