#' 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"
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.