QueryMultiJoin.R

people = new.tableRef("people", "Hive", "hive.config", "main")
role = new.tableRef("role", "Hive", "hive.config", "main")
director = new.tableRef("director", "Hive", "hive.config", "main")
q = query.where(function (x) x$firstname == "John",
    query.join(query.join(query.from(people), query.from(role), function (x,y) x$pid == y$pid),
    query.from(director), function (x,y) x$did == y$did))
results = query.force(q)
print(results)