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