R/get_dataset_counts.R

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

get_dataset_counts = function(keys) {

  keys %>%
    map(~
          gbifapi::page_api("https://api.gbif.org/v1/occurrence/search?dataset_key=" %+% .x) %>%
          pluck("count")
    ) %>%
    flatten_dbl()

}