library(jsonlite)
library(igraph)

# Read JSON
j <- fromJSON("ductNet.json")

# Build graph manually from nodes + edges
nodes <- j$objects
edges <- j$edges

g <- graph_from_data_frame(edges, vertices = nodes)
print(g)