Répliquer une liste pour créer une liste-of-listes

Question

Je suis en train de créer une liste avec la structure suivante (imbriquée):

l <- list() 
for(i in seq(5)) l[[i]] <- list(a=NA,b=NA) 
> str(l) 
List of 5 
$ :List of 2 
    ..$ a: logi NA 
    ..$ b: logi NA 
$ :List of 2 
    ..$ a: logi NA 
    ..$ b: logi NA 
$ :List of 2 
    ..$ a: logi NA 
    ..$ b: logi NA 
$ :List of 2 
    ..$ a: logi NA 
    ..$ b: logi NA 
$ :List of 2 
    ..$ a: logi NA 
    ..$ b: logi NA 

Je voudrais le faire via rep ou similaire, comme je Je crée tout un tas de listes vierges que je vais remplir plus tard. (Je suis conscient que je peux simplement développer une liste en se référant à son index suivant, mais cela ne fonctionne pas lors de l'indexation de deux profondeurs).

Je pensais que rep travaillé pour cela, mais il ne semble pas. ?rep donne l'exemple suivant:

fred <- list(happy = 1:10, name = "squash") 
rep(fred, 5) 

qui retourne:

> str(rep(fred, 5)) 
List of 10 
$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
$ name : chr "squash" 
$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
$ name : chr "squash" 
$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
$ name : chr "squash" 
$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
$ name : chr "squash" 
$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
$ name : chr "squash" 

En d'autres termes, il aplatit la liste.

J'ai également essayé list(rep(fred,5)) qui échoue également.

Comment répliquer une liste de listes?

Answer 1

Je pense que cela a à voir avec le comportement de représentant, vous voulez nid avant rep:

rep(list(fred),5) 

La sortie str:

List of 5 
$ :List of 2 
    ..$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
    ..$ name : chr "squash" 
$ :List of 2 
    ..$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
    ..$ name : chr "squash" 
$ :List of 2 
    ..$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
    ..$ name : chr "squash" 
$ :List of 2 
    ..$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
    ..$ name : chr "squash" 
$ :List of 2 
    ..$ happy: int [1:10] 1 2 3 4 5 6 7 8 9 10 
    ..$ name : chr "squash" 

Answer 2

Vous pouvez utiliser replicate:

l <- replicate(5, list(a=NA,b=NA), simplify=FALSE)