R/place_types.R

In ropenscilabs/mregions: Marine Regions Data from 'Marineregions.org'

#' Get Marineregions place types
#'
#' @export
#' @param ... Curl options passed on to [httr::GET()]
#' @return A data.frame with the columns:
#' - type (character) the place type
#' - description (character) description of the place type
#'
#' @examples \dontrun{
#' res <- mr_place_types()
#' head(res)
#' res$type
#' }
mr_place_types <- function(...) {
  jsonlite::fromJSON(
    getter(
      file.path(mr_base(), 'getGazetteerTypes.json'),
      format = "application/json; charset=UTF-8;",
      ...
    )
  )
}