R/rgb_country_codes.r

In ropensci/rgbif: Interface to the Global Biodiversity Information Facility API

#' Look up 2 character ISO country codes
#'
#' @param country_name Name of country to look up
#' @param fuzzy If TRUE, uses agrep to do fuzzy search on names.
#' @param ... Further arguments passed on to agrep or grep
#' @export
#' @examples
#' \dontrun{
#' rgb_country_codes(country_name="United")
#' }
rgb_country_codes <- function(country_name, fuzzy = FALSE, ...) {
  x <- enumeration_country()
  if (fuzzy) {
    x[agrep(country_name, x$title, ...),]
  } else {
    x[grep(country_name, x$title, ...),]
  }
}