R/data0036-habitat_faunique.R

In EffetsCumulatifsNavigation/ceanav: Research compendium for project on the assessment cumulative effects of marine vessel activities in the St. Lawrence

#' Data 0036 : Habitats fauniques
#'
#' La géodatabase (GDB) des habitats fauniques (HAFA) contient les données des 11 habitats fauniques légaux situés sur les terres du domaine de l’État qui respectent la définition du Règlement sur les habitats fauniques (RHF). On trouve aussi les HAFA situés sur terres mixtes et privées à titre informationnel.
#'
#' @keywords habitats fauniques
#' @keywords composantes valorisées
#'
#' @source https://www.donneesquebec.ca/recherche/dataset/habitats-fauniques
#'
#' @export
#'
#' @details This function loads and formats the data
#'

get_data0036 <- function() {
  # =~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~= #
  # Download data
  # ----------------------------------------
  # Output folder
  output <- "data0036-habitat_faunique/"
  folder <- paste0("./data/data-raw/", output)
  if (!file.exists(folder)) dir.create(folder)

  # Proceed only if data is not already loaded
  if (!file.exists(paste0(folder, 'Habitats_fauniques_SHP.zip'))) {
    # URL
    dat <- c('https://diffusion.mffp.gouv.qc.ca/Diffusion/DonneeGratuite/Faune/Habitats_fauniques/Habitats_fauniques_SHP.zip',
             'https://diffusion.mffp.gouv.qc.ca/Diffusion/DonneeGratuite/Faune/Habitats_fauniques/Metadonnees_FGDB_HAFA.pdf')

    # Download
    download.file(dat[1], destfile = paste0(folder, 'Habitats_fauniques_SHP.zip'))
    download.file(dat[2], destfile = paste0(folder, 'Metadonnees_FGDB_HAFA.pdf'))

    # Unzip
    unzip(zipfile = paste0(folder, 'Habitats_fauniques_SHP.zip'), exdir = folder)
  }
  # _________________________________________________________________________ #

  # =~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~= #
  # Import data
  # ----------------------------------------
  data0036 <- st_read(paste0(folder, 'Habitats_fauniques.shp'), quiet = TRUE) %>%
              st_transform(crs = global_parameters()$crs)
  # _________________________________________________________________________ #

  # =~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~= #
  # Export data
  # ----------------------------------------
  # Output
  st_write(obj = data0036,
           dsn = "./data/data-format/data0036-habitat_faunique.geojson",
           delete_dsn = TRUE)
  # _________________________________________________________________________ #

}