R：使用Shiny的可变数量的输出列表项

Question

使用server.R中的renderUI，我试图允许可变数量的列表项。这是一次非工作尝试。

output$myList <- renderUI({
  tagList(
    tags$ul(
      for(i in 1:nrow(df) {
        tags$li(df$myCol[i])
      }
    )
  )
})

在此示例中，列表项的数量取决于df中的行数。我可以打印表格，但我想要列表项的格式。

Answer 1

for不返回任何内容，因此您有2个变体

1）使用lapply

2）创建列表并将其返回

实例

1）

df=data.frame(myCol=1:10)

  tags$ul(
    lapply( 1:nrow(df),function(i){
      tags$li(df$myCol[i])
    }
    ))

2）

  tags$ul({
    list_1=list()
    for(i in 1:nrow(df) ){
      list_1[[i]]= tags$li(df$myCol[i])
    }
    list_1}
    )