# NOT RUN {
# List publishers included
ft_search_ls()
# }
# NOT RUN {
# Plos
(res1 <- ft_search(query='ecology', from='plos'))
res1$plos
ft_search(query='climate change', from='plos', limit=500,
plosopts=list(
fl=c('id','author','eissn','journal','counter_total_all',
'alm_twitterCount')))
# Crossref
(res2 <- ft_search(query='ecology', from='crossref'))
res2$crossref
# BioRxiv
(res <- ft_search(query='owls', from='biorxiv'))
res$biorxiv
# Entrez
(res <- ft_search(query='ecology', from='entrez'))
res$entrez
# arXiv
(res <- ft_search(query='ecology', from='arxiv'))
res$arxiv
# BMC - can be very slow
(res <- ft_search(query='ecology', from='bmc'))
res$bmc
# Europe PMC
(res <- ft_search(query='ecology', from='europmc'))
res$europmc
## get the next batch of results, using the cursorMark result
ft_search(query='ecology', from='europmc',
euroopts = list(cursorMark = res$europmc$cursorMark))
# Scopus
(res <- ft_search(query = 'ecology', from = 'scopus', limit = 100,
scopusopts = list(key = Sys.getenv('ELSEVIER_SCOPUS_KEY'))))
res$scopus
## pagination
(res <- ft_search(query = 'ecology', from = 'scopus',
scopusopts = list(key = Sys.getenv('ELSEVIER_SCOPUS_KEY')), limit = 5))
## lots of results
(res <- ft_search(query = "ecology community elk cow", from = 'scopus',
limit = 100,
scopusopts = list(key = Sys.getenv('ELSEVIER_SCOPUS_KEY'))))
res$scopus
## facets
## FIXME: apparently I don't have access to facets anymore
# (res <- ft_search(query = 'ecology', from = 'scopus',
# scopusopts = list(
# key = Sys.getenv('ELSEVIER_SCOPUS_KEY'),
# facets = "subjarea(count=5)"
# ), limit = 5))
# res$scopus
# PLOS, Crossref, and arxiv
(res <- ft_search(query='ecology', from=c('plos','crossref','arxiv')))
res$plos
res$arxiv
res$crossref
# Microsoft academic search
key <- Sys.getenv("MICROSOFT_ACADEMIC_KEY")
(res <- ft_search("Y='19'...", from = "microsoft", maopts = list(key = key)))
res$ma$data$DOI
# curl options
ft_search(query='ecology', from='plos', verbose = TRUE)
ma_key <- Sys.getenv("MICROSOFT_ACADEMIC_KEY")
ft_search("Y='19'...", from='microsoft', maopts = list(key = ma_key),
verbose = TRUE)
# }
Run the code above in your browser using DataLab