## Not run:
# graph = startGraph("http://localhost:7474/db/data/")
# clear(graph)
#
# alice = createNode(graph, "Person", name = "Alice")
# bob = createNode(graph, "Person", name = "Bob")
# charles = createNode(graph, "Person", name = "Charles")
#
# createRel(alice, "WORKS_WITH", bob)
# createRel(bob, "KNOWS", charles, since = 2000, through = "Work")
#
# query = "MATCH (:Person {name:'Alice'})-[r:WORKS_WITH]->(:Person {name:'Bob'})
# RETURN r"
#
# getSingleRel(graph, query)
#
# query = "MATCH (:Person {name:{start}})-[r:KNOWS]->(:Person {name:{end}})
# RETURN r"
#
# getSingleRel(graph, query, start = "Bob", end = "Charles")
# ## End(Not run)
Run the code above in your browser using DataLab