R/region_names.R

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

#' Get region names
#'
#' @keywords internal
#' @noRd
#' @param ... Curl options passed on to [httr::GET()]
#'
#' @return a data.frame, or tibble, of class tbl_df (basically, a compact
#' data.frame), with slots:
#' - name (character) - name of the region, which is a combination of the
#'  name_first and name_second, e.g., Morocco:elevation_10m
#' - title (character) - title for the region
#' - name_first (character) - first part of the name, e.g., Morocco
#' - name_second (character) - second part of the name, e.g., elevation_10m
#'
#' @examples \dontrun{
#' # mr_names gives a tidy data.frame
#' (res <- mr_names())
#'
#' # index to any given column
#' res$name
#'
#' # get unique, sorted first names
#' sort(unique(res$name_first))
#'
#' # get unique, sorted second names
#' sort(unique(res$name_second))
#'
#' # get titles
#' res$title
#' }
mr_names_old <- function(...) {
  stop("temporarily down, see mr_names2()", call. = FALSE)
  # lapply(slugs, function(z) {
  #   args <- list(service = 'WFS', request = 'GetFeature',
  #                typeName = z, maxFeatures = 1000, version = "1.0.0")
  #   res <- getter("http://geo.vliz.be/geoserver/MarineRegions/ows",
  #          args, format = "text/xml; subtype=gml/2.1.2", ...)
  #   xml <- xml2::read_xml(res)
  #   xml2::xml_find_all(xml, "//gml:featureMember")
  #
  #   features <- xml2::xml_children(xml2::xml_children(xml)[[4]])
  #   tt <- lapply(features, function(z) {
  #     list(name = ex_name(z, 1), title = ex_name(z, 2))
  #   })
  #   tmp <- lapply(tt, function(x) {
  #     gg <- strsplit(x$name, ":")[[1]][[2]]
  #     gg <- if (grepl("eez", gg)) "eez" else gg
  #     utils::modifyList(x, list(name_first = strsplit(x$name, ":")[[1]][[1]], name_second = gg))
  #   })
  # })
  #
  # # args <- list(SERVICE = 'WFS', REQUEST = 'GetCapabilities', outputFormat = 'a')
  # # res <- m_GET(vliz_base(), args, format = "application/xml", ...)
  # xml <- xml2::read_xml(res)
  # features <- xml2::xml_children(xml2::xml_children(xml)[[4]])
  # tt <- lapply(features, function(z) {
  #   list(name = ex_name(z, 1), title = ex_name(z, 2))
  # })
  # tmp <- lapply(tt, function(x) {
  #   gg <- strsplit(x$name, ":")[[1]][[2]]
  #   gg <- if (grepl("eez", gg)) "eez" else gg
  #   utils::modifyList(x, list(name_first = strsplit(x$name, ":")[[1]][[1]], name_second = gg))
  # })
  # dd <- data.table::setDF(data.table::rbindlist(tmp, use.names = TRUE, fill = TRUE))
  # tibble::as_data_frame(dd)
}

slugs <- list(
  "MarineRegions:eez",
  "MarineRegions:eez_boundaries",
  "MarineRegions:eez_iho_union_v2",
  "MarineRegions:eez_land_v1",
  "MarineRegions:iho",
  "MarineRegions:fao",
  "MarineRegions:lme",
  "MarineRegions:icesecoregions",
  "MarineRegions:ices_areas",
  "MarineRegions:ices_statistical_rectangles",
  "MarineRegions:ospar_boundaries",
  "MarineRegions:longhurst",
  "MarineRegions:seavox_v16",
  "MarineRegions:worldheritagemarineprogramme"
)