Regionalstatistik API

api_regionalstatistik.R

# 
# regionalkey = "01*,12*"  -> Nur für die Bundesländer 'Schleswig-Holstein' und 'Brandenburg' 
# job = "true"             -> Batchjob
#
# Path Regionalstatistik   -> "/genesisws/rest/2020/data/tablefile"
# Path Destatis            -> "/genesisWS/rest/2020/data/tablefile"

library(httr2)
library(tidyverse)

# Regionalstatistik
user <- "******"
pwd <-  "******"

url <- url_parse("https://www.regionalstatistik.de")
url$hostname <- "www.regionalstatistik.de"
url$path <- "/genesisws/rest/2020/data/tablefile"
url$query <- list(
  username = user,
  password = pwd,
  name = "13111-08-02-5-B",
  area = "free",
  compress = "false",
  regionalkey = "01*,12*",
  startyear = 2008,
  endyear = 2021,
  job = "true",
  language = "de",
  format = "ffcsv"
)

url <- url_build(url)

req <- request(url)

resp <- req |> req_perform()

resp |> resp_body_json()