# \donttest{
conn <- kuzu_connection(":memory:")
kuzu_execute(conn, "CREATE NODE TABLE User(name STRING, age INT64,
PRIMARY KEY (name))")
kuzu_execute(conn, "CREATE REL TABLE Knows(FROM User TO User)")
# Load from a data.frame
users_df <- data.frame(name = c("Carol", "Dan"), age = c(35, 40))
kuzu_copy_from_df(conn, users_df, "User")
# Load from a tibble (requires pre-existing nodes)
kuzu_execute(conn, "CREATE (u:User {name: 'Alice'}), (v:User {name: 'Bob'})")
knows_df <- data.frame(from_person = c("Alice", "Bob"),
to_person = c("Bob", "Carol"))
kuzu_copy_from_df(conn, knows_df, "Knows")
result <- kuzu_execute(conn, "MATCH (a:User) RETURN a.name, a.age")
print(as.data.frame(result))
result_rel <- kuzu_execute(conn, "MATCH (a:User)-[k:Knows]->(b:User)
RETURN a.name, b.name")
print(as.data.frame(result_rel))
# }
Run the code above in your browser using DataLab