Conditional tabPanel

[Willi Fiebranz]

Hi,

I would like to implement a conditional tab-construction, like

tabsetPanel(
    tabset("tab1", some widgets),
    conditionalPanel("input.something",
         uiOutput("some additional tabsets")
    )
)

I assume this is not possible yet, or is there a way?

Best,
WF

[Joe Cheng]

Right, not currently possible (without creating/destroying the entire tabsetPanel repeatedly, using uiOutput and renderUI).

--
You received this message because you are subscribed to the Google Groups "Shiny - Web Framework for R" group.
To unsubscribe from this group and stop receiving emails from it, send an email to shiny-discus...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.
 
 

[Willi Fiebranz]

Okay, thanks.

For future versions I would suggest, a singular tab-widget like

tabsetPanel(id = NULL, number.of.tabs = numeric(length = 1), names.of.tabs = character(length = number.of.tabs), tab.contents = list(uiOutput("tab1", ..., length = number.of.tabs)

I think something like this build in a reactive would allow for a more dynamic use of tabs.

Cheers!
WF

[Willi Fiebranz]

There is a closing bracket missing behind "tab1", sorry

[Joe Cheng]

Wait, maybe I misunderstood. Are you trying to have tabs come and go, or is the number of tabs fixed? Your initial question made me think the former, but your code snippet looks like the latter.

[Willi Fiebranz]

Come and go.

Currently I can only write a reactive function that generates me a complete tabsetPanels based on different conditions. This becomes very unpractical at some level of complexity.

I think a simple approach for a future version would be to make conditionalPanel(s) valid to wrap around tabPanels within a tabsetPanel like:

tabsetPanel(
   tabPanel("Summary All", uiOutput("somestuff_all")),
   conditionalPanel(condition = "input.cond_a.",
      tabPanel("Summary A", uiOutput("somestuff_a"))
   ),
   conditionalPanel(condition = "input.cond_b.",
      tabPanel("Summary B", uiOutput("somestuff_b"))
   )
)

[Joe Cheng]

OK, thanks for the feedback.

[cassandra....@ventirisk.com]

Can you show example code of creating/destroying the tabsetPanel?

[Joe Cheng]

You have uiOutput("tabsets") in your ui.R, and then in your server.R something like:

output$tabsets <- renderUI({

  tabs <- ...

  do.call(tabsetPanel, c("tabpanel", tabs))

})

where "..." is replaced with whatever logic you use to create a list of tabPanel() objects. If that logic uses reactive values/expressions then the entire tabset panel (which we're calling "tabpanel" here) will be replaced each time the reactive dependencies change.

[Fazel Tabassum]

Is there a way where a tab is only displayed if a certain condition is met ?

Something along the lines of these :

ui<- fluidpage(

tabsetPanel(

  id = "panels",

  tabPanel("tab1",

           #someoutput

           )

  ,

  conditionalPanel("somecondition", tabPanel(

    id = "tab2",

    #someoutput

  ))

)

)