cr_fundref(query="NSF", limit=1)
cr_fundref(query="NSF")
cr_fundref(dois='10.13039/100000001')
out <- cr_fundref(dois=c('10.13039/100000001','10.13039/100000015'))
out['10.13039/100000001']
out[['10.13039/100000001']]
cr_fundref(dois='10.13039/100000001')
cr_fundref(dois='10.13039/100000001', works=TRUE, limit=5)
cr_fundref(dois=c('10.13039/100000001','10.13039/100000015'))
cr_fundref(dois=c('10.13039/100000001','10.13039/100000015'), works=TRUE)
# Curl options
library('httr')
cr_fundref(dois='10.13039/100000001', config=verbose())
# If not found, and only 1 DOI given, list of NA elements returned
cr_fundref("adfadfaf")
# If not found, and > 1 DOI given, those not found dropped
cr_fundref(dois=c("adfadfaf","asfasf"))
cr_fundref(dois=c("adfadfaf","asfasf"), works=TRUE)
cr_fundref(dois=c("10.13039/100000001","asfasf"))
cr_fundref(dois=c("10.13039/100000001","asfasf"), works=TRUE)
Run the code above in your browser using DataLab