interactive network with R+d3.js

net.R

library(igraph) # Load the igraph package
links <- read.csv("data/network_crma_arpa_edges.csv")
net <- graph_from_data_frame(d=links, directed=T)

library(networkD3)
wc <- cluster_walktrap(net)
members <- membership(wc)
igraph_to_networkD3(net, group=members) -> net_d3
net_d3$nodes$nodesize <- c(40,0)[(net_d3$nodes$name %in% links$from)+1]
forceNetwork(Links = net_d3$links, Nodes = net_d3$nodes,
             Source = 'source', Target = 'target', NodeID = 'name',
             Group = 'group', Nodesize = 'nodesize', 
             opacityNoHover = 1, fontSize = 10,
             zoom=T, linkDistance = 70,
             colourScale = JS("d3.scaleOrdinal(d3.schemeCategory10);")) -> nn
print(nn)

network_crma_arpa_edges.csv