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

Question

在服务器中使用renderUI。R，我试着允许一个可变数量的列表项。这是一个无效的尝试。

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

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

Answer 1

for不返回任何值，所以有2个变量

使用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}
    )