# NOT RUN {
res <- scopus_search(query = "ecology")
res
#scopus_search(query = x, type = "abstract")
# looping through
res <- scopus_search_loop(query = "ecology community elk cow")
# using facets
## scopus_search
res <- scopus_search(query = "ecology", facets = "subjarea(count=5)")
res
res$`search-results`$link
res$`search-results`$entry
res$`search-results`$facet
## more examples
x <- scopus_search(query = "ecology", facets = "language(count=4)", count = 1)
x$`search-results`$facet
x <- scopus_search(query = "ecology", facets = "pubyear(count=3);doctype();language(count=4)")
x$`search-results`$facet
## scopus_search_loop
res <- scopus_search_loop(query = "ecology", facets = "subjarea(count=5)", count = 200)
res$found
head(res$results)
res$facets
# sort
x <- scopus_search(query = "ecology", sort = "-title")
# }
Run the code above in your browser using DataLab