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))



davidromary/skillsassessment documentation built on May 3, 2019, 3:37 p.m.