R Shiny动态多级/嵌套tabPanel与renderUI

时间:2017-08-25 08:01:12

标签: r shiny lapply tabpanel

我想在另一个tabsetPanel中创建一个tabsetPanel。 第二个tabsetPanel的选项卡数量应取决于第一级选项卡中的selectizeInput。

这个最小的例子似乎差不多好了。但是,在输入框中选择第二级选项卡时,创建的选项卡会立即消失。

挑战在于如何在lapply函数中获得selectizeInput的输出。

    library(shiny)

    ui <- fluidPage(mainPanel(
      selectizeInput(
        inputId  = "letters",
        label    = "Select letters for level 1 tabs",
        choices  = LETTERS,
        selected = c('A', 'B', 'C'),
        multiple = TRUE
      ),

      uiOutput('mytabs')

    ))


server <- function(input, output) {

  output$mytabs <- renderUI({

    level1Tabs <- lapply(1:length(input$letters),
                         function(i) {
                           tabPanel(input$letters[i],
                                    test2 <- renderUI({
                                      selectizeInput(
                                        inputId  = 'numbers',
                                        label    = 'Select numbers for level 2 tabs',
                                        choices  =  1:10,
                                        multiple = TRUE
                                      )
                                    }),


                                    do.call(tabsetPanel,
                                            lapply(1:length(input$numbers), function(j) {
                                              tabPanel(input$numbers[j],
                                                       h5('test'))

                                            })))


                         })

    do.call(tabsetPanel, level1Tabs)

  })

}

# Run the application
shinyApp(ui = ui, server = server)

1 个答案:

答案 0 :(得分:0)

答案很简单:只需将内层tabsetPanel放入renderUI

即可
renderUI({
  do.call(tabsetPanel,
          lapply(1:length(input$numbers), function(j) {
            tabPanel(input$numbers[j],
                     h5('test'))

          }))
})

这将阻止更新/刷新selectizeInput(数字)