WFS in R laden met HTTR2

Toepassingen
#1

Ik probeer de gemeentes van de provincie Drenthe in te laden in R met gebruik van het httr2-package. Er is vrij veel documentatie over httr, maar nog niet met het nieuwere httr2-package. Voor heen kon je dit ook inladen met SF-package (st_read), maar ik krijg dit nu niet voor elkaar.

De query lijkt wel te werken, maar ik krijg het niet voor elkaar om het uiteindelijk met sf in te laden in R. Ergens moet ik nog filteren voor de Provincie Drenthe, maar ik überhaput niet de gehele set inladen.

Kan iemand mij misschien verder helpen? Alvast bedankt voor de tijd en moeite!

library(httr2)
library(sf)

gemeente_url <- request("https://service.pdok.nl/kadaster/bestuurlijkegebieden/wfs/v1_0?")

gemeente_url |> 
  req_url_query(request = "GetFeature", service = "WFS", outputFormat = "application/json") |> 
  req_perform()
#2

Na wat puzzelen heb ik het volgende voor elkaar gekregen. Voor degenen die geïnteresseerd zijn in mijn oplossing:

library(httr2)
library(sf)

gemeente_url <- url_parse("https://service.pdok.nl/kadaster/bestuurlijkegebieden/wfs/v1_0")
filter_drenthe <- "<PropertyName>ligtInProvincieNaam</PropertyName><Literal>Drenthe</Literal>"
gemeente_url$query <- list(service = "WFS",
                  version = "2.0.0",
                  request = "GetFeature",
                  typename = "bestuurlijkegebieden:Gemeentegebied",
                  filter = paste0("<Filter><PropertyIsEqualTo>", filter_drenthe, "</PropertyIsEqualTo></Filter>"),
                  outputFormat = "application/json")

drenthe_sf <- gemeente_url |>
  url_build() |> 
  st_read()