exp <- read.csv2(file = "../data/input/Experiences.csv", as.is = TRUE) if(length(problems(exp)$row) != 0) exp <- exp[-problems(exp)$row, ] type_de_contenus <- data.frame(exp %>% select(type_de_contenu) %>% distinct())[, 1] type_de_contenu_t <- seq_len(length(type_de_contenus)) src <- lapply(type_de_contenu_t, function(type_de_contenu.t) knit_expand(file = "Type_de_contenu-Latin1.Rmd"))
r knit(text = unlist(src))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.