estmap/R/loe_teeregistri_wfs_kihid.R

#' Teeregistri WFS kihtide lugemine
#'
#' See on Eesti avaandmete \url{https://avaandmed.eesti.ee/datasets?emsId=35} teabevärava kaudu teederegistri WFS (Web Feature Service) andmete info filtreerimine.
#'
#' @return matrix
#' @importFrom magrittr %>%
#' @noRd
#' @examples
#' \dontrun{
#'
#' loe_teeregistri_wfs_kihid()
#' }
#'
loe_teeregistri_wfs_kihid <- function() {
  # Andmeallikas
  url <- "https://teeregister-api.mnt.ee/teenus/wfs?request=GetCapabilities&service=WFS"
  data <- xml2::read_xml(url) %>% xml2::xml_contents()
  result <- data[[4]] %>% xml2::xml_children()
  list <- lapply(1:length(result), function(i) {
    layer <- (result[[i]] %>% xml2::xml_children() %>% xml2::xml_text())[1]
    title <- (result[[i]] %>% xml2::xml_children() %>% xml2::xml_text())[2]
    abstract <- gsub("\n", "", (result[[i]] %>% xml2::xml_children() %>% xml2::xml_text())[3])
    defaultCRS <- gsub("urn:ogc:def:crs:", "", (result[[i]] %>% xml2::xml_children() %>% xml2::xml_text())[4])
    bbox <- (result[[i]] %>% xml2::xml_children() %>% xml2::xml_text())[8]
    metadataURL <- (result[[i]] %>% xml2::xml_children())[9] %>% xml2::xml_attr("href")
    c(
      "layer" = layer, "title" = title, "abstract" = abstract, "defaultCRS" = defaultCRS,
      "bbox" = bbox, "metadataURL" = metadataURL
    )
  })
  do.call("rbind", list)
}