attSGe <- function(SG, att, eID, val, default) {
SG@e@data[,att] <- default
eids <- match(eID, row.names(SG@e@data))
SG@e@data[eids,att] <- val
return(SG)
} # end function attSGe
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.