Предположим, у меня есть следующий список, который представляет структуру каталогов:
> pages <- list("about.Rmd", "index.Rmd", c("stats", "index.Rmd"), c("stats", "substats", "index.Rmd"))
> pages
[[1]]
[1] "about.Rmd"
[[2]]
[1] "index.Rmd"
[[3]]
[1] "stats" "index.Rmd"
[[4]]
[1] "stats" "substats" "index.Rmd"
Я хотел бы создать рекурсивную версию этого списка, что бы выглядело так:
> rpages <- list("about.Rmd", "index.Rmd", stats=list("index.Rmd", substats=list("index.Rmd")))
> rpages
[[1]]
[1] "about.Rmd"
[[2]]
[1] "index.Rmd"
$stats
$stats[[1]]
[1] "index.Rmd"
$stats$substats
$stats$substats[[1]]
[1] "index.Rmd"
Я пробовал разные способы сделать это, но я боюсь, что теперь я потерялся в море lapply
и sapply
.
Спасибо заранее за любой намек.