PLZ-Berlin / FIS-Brocker Berlin

PLZ_Berlin.R

# https://daten.berlin.de/datensaetze/postleitzahlen-wfs-2

library(httr)
library(glue)
library(sf)

wfs_source <- "s_plz"

u_data <- glue("https://fbinter.stadt-berlin.de/fb/wfs/data/senstadt/{wfs_source}")

z <-
    httr::VERB(verb = "GET",
    url = u_data,
    query = list(service = "wfs",
    version = "2.0.0",
    request = "GetFeature",
    TYPENAMES = wfs_source,
    outputFormat = "application/json"))

status_code(z)

s <- sf::read_sf(z)
s

saveRDS(s, 'plz_Berlin_2019_10_1.rds')