shinyWidgets (version 0.4.9)

appendVerticalTab: Mutate Vertical Tabset Panel

Description

Mutate Vertical Tabset Panel

Usage

appendVerticalTab(inputId, tab,
  session = shiny::getDefaultReactiveDomain())
removeVerticalTab(inputId, index,
  session = shiny::getDefaultReactiveDomain())
reorderVerticalTabs(inputId, newOrder,
  session = shiny::getDefaultReactiveDomain())

Arguments

inputId

The id of the verticalTabsetPanel object.

tab

The verticalTab to append.

session

The session object passed to function given to shinyServer.

index

The index of the the tab to remove.

newOrder

The new index order.

Examples

# NOT RUN {
if (interactive()) {

library(shiny)
library(shinyWidgets)

ui <- fluidPage(

  verticalTabsetPanel(
    verticalTabPanel("blaa","foo"),
    verticalTabPanel("yarp","bar"),
    id="hippi"
  )
)

server <- function(input, output, session) {
  appendVerticalTab("hippi", verticalTabPanel("bipi","long"))
  removeVerticalTab("hippi", 1)
  appendVerticalTab("hippi", verticalTabPanel("howdy","fair"))
  reorderVerticalTabs("hippi", c(3,2,1))
}

# Run the application
shinyApp(ui = ui, server = server)

}
# }

Run the code above in your browser using DataCamp Workspace