tab_visibility: Show/Hide Tab
In fomantic.plus: Add Extra 'Fomantic UI' Components to 'shiny.semantic'

Description Usage Arguments Value Examples

Dynamically show or hide a tab_panel or navbar_menu

1
2
3

show_tab(session = shiny::getDefaultReactiveDomain(), id, target)

hide_tab(session = shiny::getDefaultReactiveDomain(), id, target)

`session`	The `session` object passed to function given to `shinyServer`.
`id`	The id of the navbar object
`target`	The tab value to toggle visibility

Changes to the visibility of a tab in the shiny UI.

if (interactive()) {
  library(shiny)
  library(shiny.semantic)

  ui <- navbar_page(
    title = "App Title",
    id = "navbar",
    tab_panel(
      "Plot",
      action_button("hide", "Hide Table"),
      action_button("show", "Show Table"),
      value = "plot"
    ),
    tab_panel("Summary", value = "summary"),
    tab_panel("Table", value = "table")
  )

  server <- function(input, output, session) {
    observeEvent(input$hide, hide_tab(session, "navbar", "table"))
    observeEvent(input$show, show_tab(session, "navbar", "table"))
  }

  shinyApp(ui, server)
}