Hoi,
Ik wil graag weten of op een bepaalde locatie een natura 2000 gebied aanwezig is én wat dan bijvoorbeeld de naam is van dat Natura2000 gebied. Ik heb voor de WFS service gekozen.
Ik wil dit doen met een R script.
De gekozen locatie ligt in een Natura2000 gebied. Ik verwacht alléén het polyogon te downloaden waarop het punt ligt. Helaas krijg ik alle Natura2000 gebieden als respons (209 stuks, duurd ca. 15 sec). Dat doe ik met de onderstaande code. Wat gaat er fout?
library(httr)
library(sf)
# RD coordinaten
x <- 144355.3
y <- 410903.8
url <- parse_url("https://geodata.nationaalgeoregister.nl/natura2000/wfs?")
url$query <- list(service = "WFS"
,version = "2.0.0"
,request = "GetFeature"
,typename = "natura2000:natura2000"
,srsName = "EPSG:4326"
,outputFormat = "application/json"
,CQL_FILTER = sprintf("INTERSECTS(geom,POINT(%s %s))",x,y)
)
request <- build_url(url)
st_read(request)
Dit heb ik al geprobeerd:
- Alle polygonen downloaden en met functie
point.in.polygon()
het juiste polygon selecteren. (Dit is natuurlijk niet wat men wil) - Een kleine BBOX toepassen. Ook hier download hij alle polygonen.
Alvast bedankt,
Lennart Jongen