R/data0064-vulnerability_mammiferes_marins.R

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

#' Data 0064 : Scores de vulnérabilité pour les mammifères marins
#'
#'
#' @keywords vulnérabilité
#' @keywords mammifères marins
#'
#' @source Our team
#'
#' @export
#'
#' @details Cette fonction formatte les données
#'

get_data0064 <- function() {
  # =~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~= #
  # Setup
  # ----------
  # _________________________________________________________________________ #
  output <- "data0064-vulnerabilite_mammiferes_marins/"
  folder <- paste0("./data/data-raw/", output)
  if (!file.exists(folder)) dir.create(folder)


  # _________________________________________________________________________ #

  # =~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~= #
  # Import and format
  # ----------------------------------------
  # Load individual matrices
  rorqual_a_bosse <- read.csv(paste0(folder, 'vulnerabilite_rorqual_a_bosse.csv')) %>%
                     mutate(cv = "rorqual_a_bosse")

  rorqual_bleu <- read.csv(paste0(folder, 'vulnerabilite_rorqual_bleu.csv')) %>%
                  mutate(cv = "rorqual_bleu")

  petit_rorqual <- read.csv(paste0(folder, 'vulnerabilite_petit_rorqual.csv')) %>%
                   mutate(cv = "petit_rorqual")

  beluga <- read.csv(paste0(folder, 'vulnerabilite_beluga.csv')) %>%
            mutate(cv = "beluga")

  rorqual_commun <- read.csv(paste0(folder, 'vulnerabilite_rorqual_commun.csv')) %>%
                    mutate(cv = "rorqual_commun")

  harbour_porpoise <- read.csv(paste0(folder, 'vulnerabilite_harbour_porpoise.csv')) %>%
                      mutate(cv = "harbour_porpoise")

  grey_seal <- read.csv(paste0(folder, 'vulnerabilite_grey_seal.csv')) %>%
               mutate(cv = "grey_seal")

  harbor_seal <- read.csv(paste0(folder, 'vulnerabilite_harbor_seal.csv')) %>%
                 mutate(cv = "harbor_seal")

  harp_seal <- read.csv(paste0(folder, 'vulnerabilite_harp_seal.csv')) %>%
               mutate(cv = "harp_seal")

  # Single dataset
  data0064 <- bind_rows(rorqual_a_bosse,
                        rorqual_bleu,
                        petit_rorqual,
                        beluga,
                        rorqual_commun,
                        harbour_porpoise,
                        grey_seal,
                        harbor_seal,
                        harp_seal)
  # _____________________________________________________________________________ #


  # =~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~=~-~= #
  # Export data
  # ----------------------------------------
  # Output
  write.csv(x = data0064,
            file = "./data/data-format/data0064-vulnerabilite_mammiferes_marins.csv",
            row.names = FALSE)
  # _________________________________________________________________________ #
}