Vertical tab panel
Vertical tab panel
verticalTabsetPanel( ..., selected = NULL, id = NULL, color = "#112446", contentWidth = 9, menuSide = "left" ) verticalTabPanel(title, ..., value = title, icon = NULL, box_height = "160px")
... |
For |
selected |
The |
id |
If provided, you can use |
color |
Color for the tab panels. |
contentWidth |
Width of the content panel (must be between 1 and 12), menu width will be |
menuSide |
Side for the menu: right or left. |
title |
Display title for tab. |
value |
Not used yet. |
icon |
Optional icon to appear on the tab. |
box_height |
Height for the title box. |
updateVerticalTabsetPanel for updating selected tabs.
if (interactive()) {
library(shiny)
library(shinyWidgets)
ui <- fluidPage(
fluidRow(
column(
width = 10, offset = 1,
tags$h2("Vertical tab panel example"),
verticalTabsetPanel(
verticalTabPanel(
title = "Title 1", icon = icon("home", "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) {
}
shinyApp(ui, server)
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.