In pbs-assess/gfsynopsis: Data Synopsis Reports for PBS Groundfish

\clearpage

INDEX DES ESPÈCES PAR NOM COMMUN {#sec:common-name-index}

.spp <- gfsynopsis::get_spp_names()
spp_table <- .spp %>%
  mutate(species_common_name = gfsynopsis:::first_cap(species_common_name)) %>%
  mutate(section = paste0("\\@ref(sec:", spp_w_hyphens, ")")) %>%
  mutate(species_science_name = paste0("*", gfplot:::firstup(species_science_name), "*")) %>%
  mutate(species_science_name = gsub("Sebastes aleutianus/melanostictus complex",
    "S. aleutianus/melanostictus complex", species_science_name)) %>% 
  mutate(species_common_name = gsub("C-o Sole", "C-O Sole", species_common_name)) %>%
  mutate(species_common_name = gsub("Rougheye/blackspotted Rockfish Complex", 
    "Rougheye/Blackspotted", species_common_name))

if (french){
  spp_table <- spp_table %>%
  mutate(species_common_name = en2fr(species_common_name, french))
  spp_table$species_common_name <- 
    purrr::map_chr(spp_table$species_common_name, gfsynopsis:::cap) 
}

spp_table %>% arrange(species_common_name) %>%
  select(species_common_name, species_science_name, section) %>%
  csasdown::csas_table(align = c("l", "l", "l"),
   col.names = en2fr(c("Common name", "Scientific name", "Section"), french))

\clearpage

INDEX DES ESPÈCES PAR NOM SCIENTIFIQUE {#sec:scientific-name-index}

spp_table %>% arrange(species_science_name) %>%
  select(species_science_name, species_common_name, section) %>%
  csasdown::csas_table(align = c("l", "l", "l"),
  col.names = en2fr(c("Scientific name", "Common name", "Section")))