Create a tabSetPanel
Imported by bs4TabCard but can be used alone.
bs4TabSetPanel( ..., id, side, status = NULL, tabStatus = NULL, .list = NULL, vertical = FALSE ) bs4DashControlbarMenu( ..., id, side, status = NULL, tabStatus = NULL, .list = NULL, vertical = FALSE ) tabsetPanel( ..., id, side, status = NULL, tabStatus = NULL, .list = NULL, vertical = FALSE )
| ... | Slot for bs4TabPanel. | 
| id | Unique bs4TabSetPanel id. | 
| side | Side of the box the tabs should be on ( | 
| status | The status of the card header. "primary", "secondary", "success", "warning", "danger", "white", "light", "dark", "transparent". NULL by default. | 
| tabStatus | The status of the tabs buttons over header. "primary", "secondary", "success", "warning", "danger", "white", "light", "dark", "transparent". NULL by default, "light" if status is set. A vector is possible with a colour for each tab button | 
| .list | When elements are programmatically added, pass them here instead of in ... | 
| vertical | Whether to display tabs in a vertical mode. FALSE by default. | 
David Granjon, dgranjon@ymail.com
if(interactive()){
 library(shiny)
 library(bs4Dash)
 shiny::shinyApp(
   ui = bs4DashPage(
    navbar = bs4DashNavbar(),
    sidebar = bs4DashSidebar(),
    controlbar = bs4DashControlbar(),
    footer = bs4DashFooter(),
    title = "test",
    body = bs4DashBody(
     
     # manually inserted panels
     bs4TabSetPanel(
      id = "tabcard",
      side = "left",
      bs4TabPanel(
       tabName = "Tab 1", 
       active = FALSE,
       "Content 1"
      ),
      bs4TabPanel(
       tabName = "Tab 2", 
       active = TRUE,
       "Content 2"
      ),
      bs4TabPanel(
       tabName = "Tab 3", 
       active = FALSE,
       "Content 3"
      )
     ),
     
     br(), br(),
     # programmatically inserted panels
     bs4TabSetPanel(
       id = "tabset",
       side = "left",
       .list = lapply(1:3, function(i) {
         bs4TabPanel(
           tabName = paste0("Tab", i), 
           active = FALSE,
           paste("Content", i)
         )
       })
      ),
      
      br(), br(),
      # vertical tabset
      bs4TabSetPanel(
       id = "verttabset",
       side = "left",
       vertical = TRUE,
       .list = lapply(1:3, function(i) {
         bs4TabPanel(
           tabName = paste0("Tab", i), 
           active = FALSE,
           paste("Content", i)
         )
       })
      )
    )
   ),
   server = function(input, output) {}
 )
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.