R/addPublishingOrganizationKey.R

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

addPublishingOrganizationKey = function(.data,key) {

  arguments = as.list(match.call())
  keys = eval(arguments$key, .data)

  publishingOrganizationKey = keys %>%
    purrr::map(~httr::GET("http://api.gbif.org/v1/dataset/" %+% .x)) %>%
    purrr::map(~ httr::content(.x)) %>%
    purrr::map_if(purrr::is_empty, ~ NA_character_) %>%
    purrr::map_chr(~ .x$publishingOrganizationKey)

  d = data.frame(publishingOrganizationKey)
  .data = cbind(.data,d)

  return(.data)
}