R/get_all_dataset_citations.R

In jhnwllr/gbifapi: Package calls gbif api with a url and returns a list

get_all_dataset_citations = function(Step = 1000,maxPages = 200) {
  # this might take a while

  datasetkey = gbifapi::getDatasetKeys(Step = Step,maxPages = maxPages)

  api = "https://www.gbif.org/api/resource/search?"
  query = "contentType=literature&gbifDatasetKey="

  citations = datasetkey %>%
    map(~ httr::GET(api %+% query %+% .x) %>% httr::content()) %>%
    map_dbl(~ .x$count)

  tibble(datasetkey,citations)
}

# Curl -XPOST http://cms-search.gbif.org:9200/literature/_search -d'
# { "size": 0,
# "aggs" : {
# "datasets" : {
# "terms" : {
# "field" : "gbifDatasetKey",
# "min_doc_count": 1,
# "size" : 30000,
# "shard_size": 30000
# }
# }
# }
# }
# '