if (FALSE) {
library(sf)
# find if commune is under the RNU (national urbanism regulation)
rnu <- get_apicarto_gpu("93014", "municipality")
rnu$is_rnu
# get urbanism document
x <- get_apicarto_cadastre("93014", "commune")
document <- get_apicarto_gpu(x, ressource = "document")
partition <- document$partition
# get gpu features
## from shape
gpu <- get_apicarto_gpu(x, ressource = "zone-urba")
## from partition
gpu <- get_apicarto_gpu("DU_93014", ressource = "zone-urba")
# example : all prescriptions
ressources <- c("prescription-surf",
"prescription-lin",
"prescription-pct")
prescriptions <- get_apicarto_gpu("DU_93014",
ressource = ressources)
# example : public utility servitude (SUP) assiette
assiette_sup_s <- get_apicarto_gpu(x, ressource = "assiette-sup-s")
protection_forest <- get_apicarto_gpu(x,
ressource = "assiette-sup-s",
categorie = "A7")
# example : public utility servitude (SUP) generateur
## /!\ a generator can justify several assiette
ressources <- c("generateur-sup-p",
"generateur-sup-l",
"generateur-sup-s")
all_gen <- get_apicarto_gpu(x, ressource = ressources)
}
Run the code above in your browser using DataLab