Code : Tout sélectionner
sprintf("# Présentation organisme df[%1$d, 1]\nThème = df[%1$d, 2]\nAnnée de création = df[%1$d, 3]\n\\newpage\n", idrow)
Code : Tout sélectionner
df %>%
mutate(date = ymd(Date)) %>%
group_by(Auteur) %>%
summarise(mini = min(date), maxi = max(date))
Code : Tout sélectionner
df$acc <- ave(df$Diametre, do.call(interaction, df[c(1,2,5)]), FUN = function(x) x - lag(x))
Code : Tout sélectionner
reshape(dat, direction = "long", varying = 3:8, sep = "_")
# et pour complexifier :
dat %>% gather("var", "value", -(1:2)) %>%
separate(var, into = c("var", "side")) %>%
pivot_wider(names_from=var, values_from=value)