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