# Without with_qfuns, we have to do:
qry_funs$and(
qry_funs$gte(patent_date = "2007-01-01"),
qry_funs$text_phrase(patent_abstract = c("computer program")),
qry_funs$or(
qry_funs$eq(inventors.inventor_name_last = "Ihaka"),
qry_funs$eq(inventors.inventor_name_last = "Chris")
)
)
# ...With it, this becomes:
with_qfuns(
and(
gte(patent_date = "2007-01-01"),
text_phrase(patent_abstract = c("computer program")),
or(
eq(inventors.inventor_name_last = "Ihaka"),
eq(inventors.inventor_name_last = "Chris")
)
)
)
Run the code above in your browser using DataLab