Il y a une excellente réponse sur le blog Lutte contre les problèmes
Ceci est pris à partir de là, avec des modifications très mineures.
UTILISATION DES TROIS FONCTIONS SUIVANTES (Plus une pour permettre des listes de tailles différentes)
'%=%' = function(l, r, ...) UseMethod('%=%')
'%=%.lbunch' = function(l, r, ...) {
Envir = as.environment(-1)
if (length(r) > length(l))
warning("RHS has more args than LHS. Only first", length(l), "used.")
if (length(l) > length(r)) {
warning("LHS has more args than RHS. RHS will be repeated.")
r <- extendToMatch(r, l)
}
for (II in 1:length(l)) {
do.call('<-', list(l[[II]], r[[II]]), envir=Envir)
}
}
extendToMatch <- function(source, destin) {
s <- length(source)
d <- length(destin)
if(d==1 && s>1 && !is.null(as.numeric(destin)))
d <- destin
dif <- d - s
if (dif > 0) {
source <- rep(source, ceiling(d/s))[1:d]
}
return (source)
}
g = function(...) {
List = as.list(substitute(list(...)))[-1L]
class(List) = 'lbunch'
return(List)
}
Puis pour exécuter:
Regroupez le côté gauche à l'aide de la nouvelle fonction g()
Le côté droit doit être un vecteur ou une liste Utilisez l'opérateur binaire nouvellement créé%=%
g(a, b, c) %=% list("hello", 123, list("apples, oranges"))
g(d, e, f) %=% 101:103
> a
[1] "hello"
> b
[1] 123
> c
[[1]]
[1] "apples, oranges"
> d
[1] 101
> e
[1] 102
> f
[1] 103
Exemple utilisant des listes de différentes tailles:
Côté gauche plus long
g(x, y, z) %=% list("first", "second")
> x
[1] "first"
> y
[1] "second"
> z
[1] "first"
Côté droit plus long
g(j, k) %=% list("first", "second", "third")
> j
[1] "first"
> k
[1] "second"
list($a, $b) = array(1, 2)
? Ce serait bien! +1.