def_groupe_valo <- function(rang, date_sortie, mois_envois) {
mois_sortie <- as.integer(format(date_sortie, format = "%m"))
if(rang == 1) {
if(mois_sortie == mois_envois)
grp <- "initial"
else
grp <- "rattrapage"
} else {
grp <- "recodage"
}
grp
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.