```r}, echo=FALSE} type_de_contenu_tt <- {{type_de_contenu.t}}
contenus <- data.frame(exp %>% filter(type_de_contenu == type_de_contenus[type_de_contenu_tt]) %>% select(contenu) %>% distinct())[, 1]
contenu_c <- paste(type_de_contenu_tt, seq_len(length(contenus)), sep = "0")
src <- lapply(contenu_c, function(contenu.c) knit_expand(file = "Contenu-Latin1.Rmd")) ```
r type_de_contenus[type_de_contenu_tt]
r knit(text = unlist(src))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.