R/dashboardControlbar.R
updateControlbarMenu.Rd
Update an AdminLTE2 controlbarMenu on the client
updateControlbarMenu( id, selected = NULL, session = shiny::getDefaultReactiveDomain() )
id | Controlbar id. |
---|---|
selected | Item to select. |
session | Shiny session object. |
if (interactive()) { library(shiny) library(shinydashboard) library(shinydashboardPlus) shinyApp( ui = dashboardPage( header = dashboardHeader(), sidebar = dashboardSidebar(), body = dashboardBody( radioButtons("controller", "Controller", choices = c(1, 2, 3)) ), controlbar = dashboardControlbar( id = "controlbar", controlbarMenu( id = "menu", controlbarItem( paste0("Tab", 1), paste("Welcome to tab", 1) ), controlbarItem( paste0("Tab", 2), paste("Welcome to tab", 2) ), controlbarItem( paste0("Tab", 3), paste("Welcome to tab", 3) ) ) ) ), server = function(input, output, session) { observeEvent(input$controller, { updateControlbarMenu( "menu", selected = paste0("Tab", input$controller) ) }) } ) }