#Simple directed graph
edges<-data.frame(from=c(1,2,3,4,5,6,7,8),
to=c(0,1,2,3,6,7,8,5),
dist=c(1,1,1,1,1,1,1,1))
#Construct cppRouting graph
graph<-makegraph(edges,directed=TRUE)
#Convert cppRouting graph to data.frame
df<-to_df(graph)
Run the code above in your browser using DataLab