如何基于嵌套列表创建嵌套div元素

Question

我想基于嵌套列表的

div

元素递归地创建闪亮的

text

元素：

nodes <- list(
      list(
        text = "RootA",
        state = list(loaded = TRUE, opened = TRUE, selected = FALSE, disabled = FALSE),
        children = list(
          list(
            text = "ChildA1",
            state = list(loaded = TRUE, opened = TRUE, selected = FALSE, disabled = FALSE)
          ),
          list(
            text = "ChildA2",
            state = list(loaded = TRUE, opened = TRUE, selected = FALSE, disabled = FALSE)
          )
        )
      ),
      list(
        text = "RootB",
        state = list(loaded = TRUE, opened = TRUE, selected = FALSE, disabled = FALSE),
        children = list(
          list(
            text = "ChildB1",
            state = list(loaded = TRUE, opened = TRUE, selected = FALSE, disabled = FALSE),
            children = list(
              list(
                text = "ChildB1a",
                state = list(loaded = TRUE, opened = TRUE, selected = FALSE, disabled = FALSE)
              ),
              list(
                text = "ChildB1b",
                state = list(loaded = TRUE, opened = TRUE, selected = FALSE, disabled = FALSE)
              )
            )
          ),
          list(
            text = "ChildB2",
            state = list(loaded = TRUE, opened = TRUE, selected = FALSE, disabled = FALSE)
          )
        )
      )
    )

我尝试使用 purrr:map，但它只在顶层工作：

purrr::map(nodes, function(x){
  if("text" %in% names(x)){
    div(x$text)
  }
})

---

这是我的预期输出（使用样式参数仅用于说明）：

library(shiny)

divs <- list(
  div("RootA",
      div("ChildA1"),
      div("ChildA2"),
      style = "background-color: aqua;"
  ),
  div("RootB",
      div("ChildB1",
          div("ChildB1a"),
          div("ChildB1b")),
      div("ChildB2"),
      style = "background-color: lightgreen;"
    )
)
   
ui <- fluidPage(
  divs
)

server <- function(input, output, session) {
  
}

shinyApp(ui, server)

Answer 1

你需要做一些递归。这应该有效

to_div <- function(x) {
  shiny::div(x$text, if ("children" %in% names(x)) lapply(x$children, to_div))
}

divs <- lapply(nodes, to_div)

这回来了

[[1]]
<div>
  RootA
  <div>ChildA1</div>
  <div>ChildA2</div>
</div>

[[2]]
<div>
  RootB
  <div>
    ChildB1
    <div>ChildB1a</div>
    <div>ChildB1b</div>
  </div>
  <div>ChildB2</div>
</div>