updateTabItems: Change the selected tab on the client

In shinydashboard: Create Dashboards with 'Shiny'

Description

This function controls the active tab of tabItems from the server. It behaves just like updateTabsetPanel.

Usage

updateTabItems(session, inputId, selected = NULL)

Arguments

session	The session object passed to function given to shinyServer.
inputId	The id of the tabsetPanel, navlistPanel, or navbarPage object.
selected	The name of the tab to make active.

Examples

## Only run this example in interactive R sessions
if (interactive()) {

ui <- dashboardPage(
  dashboardHeader(title = "Simple tabs"),
  dashboardSidebar(
    sidebarMenu(
      id = "tabs",
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
      menuItem("Widgets", tabName = "widgets", icon = icon("th"))
    ),
    actionButton('switchtab', 'Switch tab')
  ),
  dashboardBody(
    tabItems(
      tabItem(tabName = "dashboard",
        h2("Dashboard tab content")
      ),
      tabItem(tabName = "widgets",
        h2("Widgets tab content")
      )
    )
  )
)

server <- function(input, output, session) {
  observeEvent(input$switchtab, {
    newtab <- switch(input$tabs,
      "dashboard" = "widgets",
      "widgets" = "dashboard"
    )
    updateTabItems(session, "tabs", newtab)
  })
}

shinyApp(ui, server)
}

Example output

Attaching package: 'shinydashboard'

The following object is masked from 'package:graphics':

    box

shinydashboard documentation built on Sept. 30, 2021, 5:09 p.m.