# NOT RUN {
# if neo4j exists, start the local server, give it a moment to fire up, and run a query
if (nzchar(Sys.which("neo4j"))) {
neo4j_start()
Sys.sleep(2)
graph <- list(address = "bolt://localhost:7687", uid = "neo4j", pwd = "password")
neo4j_query(con = graph, qry = "MATCH (n) RETURN (n)")
}
# }
Run the code above in your browser using DataLab