Code : Tout sélectionner
df = data.frame(a = 1:3, b = 2:4, c = 3:5)
combn(names(df), 2, FUN = function(x) df[, x], simplify = FALSE)
Code : Tout sélectionner
max_idx <- apply(clim, 1, which.max)
clim$type_max <- names(clim)[max_idx]
Code : Tout sélectionner
st <- strsplit(
c("Genre espèce Auteur [Date]", "Genre2 espèce2 Auteur [Date]"),
" "
)
sapply(lapply(st, head, 2), paste, collapse = " ")
Code : Tout sélectionner
sub(" [A-Z].+",
"",
c("Genre espèce Auteur [Date]", "Genre2 espèce2 Auteur [Date]")
)