Récupération de la couche SAGE directement depuis la couche WGS

ci joint une proposition alternative de récupération de la couche des sages issues des travaux de Centre val de Loire

library(dplyr)
wfs_url <- 'https://maps.oieau.fr/ows/OIEau/gesteau?REQUEST=getCapabilities&service=WFS&VERSION=2.0.0'
lyr <- 'sa:sage'
sage <- sf::st_read(dsn = wfs_url,layer = lyr)
test<-sage %>% 
  st_set_crs(4326) %>% 
  st_transform("+proj=longlat + datum=WGS84")