library(jsonlite)
library(igraph)

j <- fromJSON("temp.json")

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

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