R Shiny：forループのチェックボックスの作成

Question

renderUIとuiOutputを使用して個々に表示/非表示を切り替えることができるチェックボックスのセットを作成し、チェックボックスがオンの場合でもupdateCheckboxInputの値を変更できるようにします。現在表示されていません。

私は、チェックボックスのリストを作成し、それらの1つを個別に表示することでこれを実行しようとしましたが、最後のものだけが表示されます。ここに私のコードです：

server <- function(input, output) { 
    v = list() 
    for (i in 1:30){ 
    l = paste0("chk_", i) 
    v[[i]] <- renderUI(actionButton(l, l)) 
    } 

    output$chk <- v[[4]] 
} 

ui <- fluidPage(
    uiOutput("chk") 
) 

shinyApp(ui = ui, server = server) 

Answer 1

あなたは間違った場所にrenderUIがあるようです。 30個のチェックボックスのリストを含む1つのrenderUIオブジェクトを作成したいのではなく、代わりにrenderUIオブジェクトのリストを作成しています。サーバーで試してみてください：

server <- function(input, output) { 
    v = list() 
    for (i in 1:30){ 
    l = paste0("chk_", i) 
    v[[i]] <- actionButton(l, l) 
    } 

    output$chk <- renderUI(v) 
}