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

Appendix 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","english")], dat, by = c("accronyme" = "categories")) %>%
         select(-accronyme)

  # Adjust column names
  # WARNING: This is ugly but it works...
  nm <- colnames(dat)
  nm[1] <- "Environmental stressors"
  nm <- gsub("frequence","Frequency", nm)
  nm <- gsub("direct","Direct or indirect effects", nm)
  nm <- gsub("resistance","Resistance", nm)
  nm <- gsub("retablissement","Recovery time", nm)
  nm <- gsub("reproduction","Effect of reproduction", nm)
  nm <- gsub("population","Effect on the population", nm)
  nm <- gsub("statut","Status of the species", nm)
  nm <- gsub("residente","Resident species", nm)
  colnames(dat) <- nm

  cat(glue("Evaluation of the vulnerability criteria for {fr} to environmental stressors. Refer to table \\@ref(tab:vulnerabilitySpecies) for more details on criteria."))
  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.