updateVerticalTabsetPanel: Update selected vertical tab

In shinyWidgets: Custom Inputs Widgets for Shiny

Update selected vertical tab

Description

Update selected vertical tab

Usage

updateVerticalTabsetPanel(session, inputId, selected = NULL)

Arguments

session	The session object passed to function given to shinyServer.
inputId	The id of the verticalTabsetPanel object.
selected	The name of the tab to make active.

See Also

verticalTabsetPanel

Examples

if (interactive()) {

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
  fluidRow(
    column(
      width = 10, offset = 1,
      tags$h2("Update vertical tab panel example:"),
      verbatimTextOutput("res"),
      radioButtons(
        inputId = "update", label = "Update selected:",
        choices = c("Title 1", "Title 2", "Title 3"),
        inline = TRUE
      ),
      verticalTabsetPanel(
        id = "TABS",
        verticalTabPanel(
          title = "Title 1", icon = icon("house", "fa-2x"),
          "Content panel 1"
        ),
        verticalTabPanel(
          title = "Title 2", icon = icon("map", "fa-2x"),
          "Content panel 2"
        ),
        verticalTabPanel(
          title = "Title 3", icon = icon("rocket", "fa-2x"),
          "Content panel 3"
        )
      )
    )
  )
)

server <- function(input, output, session) {
  output$res <- renderPrint(input$TABS)
  observeEvent(input$update, {
    shinyWidgets:::updateVerticalTabsetPanel(
      session = session,
      inputId = "TABS",
      selected = input$update
    )
  }, ignoreInit = TRUE)
}

shinyApp(ui, server)

}

shinyWidgets documentation built on Aug. 30, 2023, 5:17 p.m.