table_depts %>%
  filter(dep == params$axis) %>%
  glue_data("Département : {nccenr} ({dep}) \n 
            Cheflieu : [{cheflieu}](https://geo.api.gouv.fr/communes?code={cheflieu}) \n
            Région : [{region}](region_{region}.html)
            ")


pachevalier/datadown documentation built on May 18, 2019, 1:29 p.m.