# Custom attrmap specifications -------------------------------------------
test_that("'na' vertex attribute can be dropped when going network->igraph", {
net <- asNetwork(exIgraph)
a <- attrmap()
r <- data.frame(
type="vertex",
fromcls="network",
fromattr="na",
tocls="igraph",
toattr=NA,
stringsAsFactors=FALSE
)
aa <- rbind(a, r)
g <- asIgraph(net, amap=aa)
expect_false( "na" %in% igraph::vertex_attr_names(g))
} )
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.