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) ")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.