R define nested empty list

rec.list <- function(len){
    if(length(len) == 1){
        vector("list", len)
    } else {
        lapply(1:len[1], function(...) rec.list(len[-1]))
    }
}
depth = c(1, # only one object
          2  # two objects
         )
my.list <- rec.list()

# The obtained structure is: 
## [[1]]
## [[1]][[1]]
## [[1]][[2]]

my.list<-lapply(my.list<-vector(mode = 'list',5),function(x) # 1st level with 5 objects
      x<-lapply(x<-vector(mode = 'list',3),function(x)       # 2nd level with 3 nested objects
      x<-vector(mode='list',2)))                             # 3rd level with 2 nested objects

Source: stackoverflow.com

Similar codes

0 vote151 views5 answers
Identify multiple spellings in R
R
-2 votes141 views2 answers
What percentage of the row will the following column occupy on desktop devices: <div class="col-xs-3 col-sm-4 col-md-6 col-lg-12"></div>
R
1 vote150 views1 answer
Nls in r
R
0 vote136 views1 answer
How to filter a vector by location in r
R
5 votes431 views2 answers
R load packages
R
2 votes150 views1 answer
Remove rownumbers r
R
0 vote182 views1 answer
Rmarkdown how to load workspace
R
0 vote152 views1 answer
Utils vs readr and fread
R
2 votes141 views1 answer
Create a table from dataframe in r
R
2 votes163 views2 answers
Read excel in r
R