Dynamic navbarMenu tabPanels in R Shiny

Question

잘 작동하는 tabPanels 세트 (아래의 코드 블록 1)가 있지만 시작시 조건을 기반으로 tabPanels을 추가하거나 제거 할 수 있도록 동적으로 만들고 싶습니다. . 아래 2 블록에서 내가 가지고있는 라인을 따라 뭔가가 있습니다 (하지만 작동하지 않습니다). 나는 사람들이 이것이 가능하지 않다고 말한 곳으로 몇 가지 링크를보고 있지만 길이 있어야하는 것 같습니다. 실제로는 시작시 tabPanels를 포함 시키거나 포함시키지 않아도되고 실제로 동적 일 필요는 없습니다.

tabsetPanel : R Shiny - add tabPanel to tabsetPanel dynamically (with the use of renderUI)과 가까운 예제를 참조하십시오. 그리고 여기 그것은 불가능 말한다 : reactive tabPanel in a navbarMenu in Shiny

블록 1 : 작동하지만

동적

library(shiny) 
runApp(list(
    ui = navbarPage(

    tabPanel("a" 

    ), 
    tabPanel("b"), 
    navbarMenu('g', 
       tabPanel("c"), 
       tabPanel("d") 
    ) 
), 
    server = function(input, output, session){ 


    } 
)) 

블록이 없습니다 : 나는 이런 식으로 뭔가를 할 -이 작동하지 않습니다

library(shiny) 
runApp(list(
    ui = navbarPage(

    tabPanel("a" 

    ), 
    tabPanel("b"), 
    navbarMenu('g', 
       uiOutput('tabs') 
    ) 
), 
    server = function(input, output, session){ 

    output$tabs <- renderUI({ 

     listoftabs <- c("c", "d") 
     lapply(listoftabs, tabPanel) 

    }) 
    } 
)) 

reactive tabPanel in a navbarMenu in Shiny

Answer 1

@warmoverflow (감사합니다!) ifelse를 사용하면 매우 제한된 수의 탭으로 작업 할 수 있지만 포함 시키거나 제외시키려는 탭이 가운데 탭이면 쉼표를 사용하면 제대로 작동하지 않습니다. 여기 당신이 탭 회의 당신이`renderUI` 내부에`narbarMenu`을 둘 필요 조건

library(shiny) 
runApp(list(
    ui = navbarPage(

    tabPanel("a" 

    ), 
    tabPanel("b"), 
    f('g', drop = ifelse(1==1, 2, 3), 
       tabPanel("first"), 
       tabPanel("firstinside"), 
       tabPanel("secondinside"), 
       tabPanel("last") 
    ) 
), 
    server = function(input, output, session){ 


    } 
)) 



f <- function (title, drop , ..., icon = NULL) 
{ 
    structure(list(title = title, tabs = list(...)[-drop], iconClass = shiny:::iconClass(icon)), 
     class = "shiny.navbarmenu") 
}