R/importCad.R

In paul-carteron/cadastreAnalysis: Analysis of cadastral parcels in France

#' @title importCad
#'
#' @param codeINSEE Code INSEE d'une commune de France
#'
#' @return Renvoi les cadastres de la commune selectionnee
#' @export
#'
#' @importFrom dplyr mutate
#' @importFrom R.utils gunzip
#' @importFrom sf st_as_sf st_make_valid st_read st_transform
#' @importFrom magrittr "%>%"
#' @importFrom rlang .data
#'
importCad <- function(codeINSEE) {

      codeDep = substr(codeINSEE,1,2)
      url = paste0("https://cadastre.data.gouv.fr/data/etalab-cadastre/latest/geojson/communes/",
                   codeDep,"/",
                   codeINSEE,"/cadastre-",
                   codeINSEE,
                   "-parcelles.json.gz")

      temp = tempfile(fileext = ".json.gz")

      download.file(url, destfile = temp, mode = "wb")

      sf = st_read(gunzip(temp)) %>%
         mutate(id = paste(.data$commune, .data$section, .data$numero, sep = ".")) %>%
         st_as_sf() %>%
         st_transform(4326) %>%
         st_make_valid()

      unlink(temp)

      nomCommune = data_commune[data_commune$code_insee == codeINSEE, "commune"]

      print(paste("Telechargement des cadastres de la commune de ",
                  nomCommune,
                  "termine. Les shapes sont dans le systeme de coordonnees WGS84"))

   return(sf)
}