## Not run:
# cr_funders(query="NSF", limit=1)
# cr_funders(query="NSF")
# cr_funders(dois='10.13039/100000001')
# out <- cr_funders(dois=c('10.13039/100000001','10.13039/100000015'))
# out['10.13039/100000001']
# out[['10.13039/100000001']]
#
# cr_funders(dois='10.13039/100000001')
# cr_funders(dois='10.13039/100000001', works=TRUE, limit=5)
#
# cr_funders(dois=c('10.13039/100000001','10.13039/100000015'))
# cr_funders(dois=c('10.13039/100000001','10.13039/100000015'), works=TRUE)
#
# # Curl options
# library('httr')
# cr_funders(dois='10.13039/100000001', config=verbose())
#
# # If not found, and > 1 DOI given, those not found dropped
# cr_funders(dois=c("adfadfaf","asfasf"))
# cr_funders(dois=c("adfadfaf","asfasf"), works=TRUE)
# cr_funders(dois=c("10.13039/100000001","asfasf"))
# cr_funders(dois=c("10.13039/100000001","asfasf"), works=TRUE)
#
# # Use the cursor for deep paging
# cr_funders('100000001', works = TRUE, cursor = "*", cursor_max = 500, limit = 100)
# cr_funders(c('100000001', '100000002'), works = TRUE, cursor = "*",
# cursor_max = 300, limit = 100)
#
# # Low level function - does no parsing to data.frame, get json or a list
# cr_funders_(query = 'nsf')
# cr_funders_('10.13039/100000001')
# cr_funders_(query = 'science', parse=TRUE)
# cr_funders_('10.13039/100000001', works = TRUE, cursor = "*",
# cursor_max = 300, limit = 100)
# cr_funders_('10.13039/100000001', works = TRUE, cursor = "*",
# cursor_max = 300, limit = 100, parse = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab