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

Annexe 9 {.unnumbered #annexe9}

tab <- function(nm, fr) {
  meta <- read.csv("../data/data-metadata/metadata_stresseurs.csv")
  dat <- read.csv(glue("../data/data-raw/data0064-vulnerabilite_mammiferes_marins/vulnerabilite_{nm}.csv"))

  dat <- left_join(meta[,c("accronyme","francais")], dat, by = c("accronyme" = "categories")) %>%
         select(-accronyme)

  # Adjust column names
  # WARNING: This is ugly but it works...
  nm <- colnames(dat)
  nm[1] <- "Stresseurs environnementaux"
  nm <- gsub("frequence","Fréquence", nm)
  nm <- gsub("direct","Effet direct ou indirect", nm)
  nm <- gsub("resistance","Résistance", nm)
  nm <- gsub("retablissement","Temps de rétablissement", nm)
  nm <- gsub("reproduction","Effet sur la reproduction", nm)
  nm <- gsub("population","Effet sur la population", nm)
  nm <- gsub("statut","Statut de l'espèce", nm)
  nm <- gsub("residente","Espèce résidente", nm)
  colnames(dat) <- nm

  cat(glue("Évaluation des critères de vulnérabilité du {fr} aux stresseurs environnementaux. Référez au tableau \\@ref(tab:vulnerabilitySpecies) pour plus de détails sur les critères."))
  dat %>%
    knitr::kable(
      align = c("l", rep("c", (ncol(dat)-1)))#,
      # caption = glue("Évaluation des critères de vulnérabilité du {fr} aux stresseurs environnementaux. Référez au tableau \\@ref(tab:vulnerabilitySpecies) pour plus de détails sur les critères.")
   ) #%>%
   #kableExtra::kable_styling(font_size = 10)
}

wzxhzdk:1

wzxhzdk:2

wzxhzdk:3

wzxhzdk:4

wzxhzdk:5

wzxhzdk:6

wzxhzdk:7

wzxhzdk:8

wzxhzdk:9

EffetsCumulatifsNavigation/ceanav documentation built on April 17, 2023, 1:02 p.m.