Apicarto module Geoportail de l'urbanisme
Arguments
- x
sf
,sfc
orcharacter
:Shape : must be an object of class
sf
orsfc
.Code insee (layer =
"municipality"
) : must be acharacter
of length 5 (see com_2025)Partition : must be a valid partition
character
for checking and Geoportail for documentation
- layer
character
; Layer name fromget_gpu_layers()
- category
public utility easement according to the national nomenclature
Details
/!\ API cannot returned more than 5000 features.
All existing parameters for layer
:
"municipality"
: information on the communes (commune with RNU, merged commune)"document"
: information on urban planning documents (POS, PLU, PLUi, CC, PSMV, SCoT)"zone-urba"
: zoning of urban planning documents,"secteur-cc"
: communal map sectors"prescription-surf"
,"prescription-lin"
,"prescription-pct"
: its's a constraint or a possibility indicated in an urban planning document (PLU, PLUi, ...)"info-surf"
,"info-lin"
,"info-pct"
: its's an information indicated in an urban planning document (PLU, PLUi, ...)"acte-sup"
: act establishing the SUP"generateur-sup-s"
,"generateur-sup-l"
,"generateur-sup-p"
: an entity (site or monument, watercourse, water catchment, electricity or gas distribution of electricity or gas, etc.) which generates on the surrounding SUP (of passage, alignment, protection, land reservation, etc.)"assiette-sup-s"
,"assiette-sup-l"
,"assiette-sup-p"
: spatial area to which SUP it applies.
Examples
if (FALSE) { # \dontrun{
library(sf)
library(tmap)
# Find if commune is under the RNU (national urbanism regulation)
# If no RNU it means communes probably have a PLU
rnu <- get_apicarto_gpu("29158", "municipality")
rnu$is_rnu
# Get urbanism document
# Rq : when using geometry, multiple documents can be returned due to intersection
x <- get_apicarto_cadastre("29158", "commune")
document <- get_apicarto_gpu(x, "document")
document$partition
penmarch <- document$partition[2]
# get gpu features
## from shape
gpu <- get_apicarto_gpu(x, "zone-urba")
qtm(gpu, fill="typezone")
## from partition
gpu <- get_apicarto_gpu(penmarch, "zone-urba")
qtm(gpu, fill="typezone")
# example : all prescription
layers <- names(get_gpu_layers("prescription"))
prescriptions <- lapply(layers, \(x) get_apicarto_gpu(penmarch, x)) |>
setNames(layers)
qtm(prescriptions$`prescription-pct`, fill = "libelle")+
qtm(prescriptions$`prescription-lin`, col = "libelle")+
qtm(prescriptions$`prescription-surf`, fill = "libelle")
# When using SUP, category can be used for filtering
# AC1 : Monuments historiques
penmarch <- get_apicarto_cadastre(29158)
mh <- get_apicarto_gpu(penmarch, "assiette-sup-s", category = "AC1")
# example : public utility servitude (SUP) generateur
## /!\ a generator can justify several assiette
gen_mh <- get_apicarto_gpu(penmarch, "generateur-sup-s", "AC1")
qtm(mh, fill = "lightblue")+qtm(gen_mh, fill = "red")
} # }