# Get all top level (non-nested) fields for the patent endpoint:
fields <- get_fields(endpoint = "patent", groups = "patents")
# ...Then pass to search_pv:
if (FALSE) {
search_pv(
query = '{"_gte":{"patent_date":"2007-01-04"}}',
fields = fields
)
}
# Get patent and assignee-level fields for the patent endpoint:
fields <- get_fields(endpoint = "patent", groups = c("assignees", "patents"))
if (FALSE) {
# ...Then pass to search_pv:
search_pv(
query = '{"_gte":{"patent_date":"2007-01-04"}}',
fields = fields
)
}
Run the code above in your browser using DataLab