In davidromary/skillsassessment: check up my skills assessment and my career path

```r}, echo=FALSE} etablissement_e <- {{etablissement.e}} etablissement_ee <- ldply(strsplit(as.character(etablissement_e), split = "0")) etablissement_ee <- as.integer(etablissement_ee[, ncol(etablissement_ee)])

missions <- data.frame(exp %>% filter(type_de_contenu == type_de_contenus[type_de_contenu_tt], contenu == contenus[contenu_cc], etablissement == etablissements[etablissement_ee]) %>% select(mission) %>% distinct())[, 1]

mission_m <- paste(etablissement_e, seq_len(length(missions)), sep = "0")

src <- lapply(mission_m, function(mission.m) knit_expand(file = "Mission-Latin1.Rmd")) ```

r etablissements[etablissement_ee]

r knit(text = unlist(src))

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