appendVerticalTab | R Documentation |
Mutate Vertical Tabset Panel
appendVerticalTab(inputId, tab, session = shiny::getDefaultReactiveDomain())
removeVerticalTab(inputId, index, session = shiny::getDefaultReactiveDomain())
reorderVerticalTabs(
inputId,
newOrder,
session = shiny::getDefaultReactiveDomain()
)
inputId |
The id of the |
tab |
The verticalTab to append. |
session |
The |
index |
The index of the the tab to remove. |
newOrder |
The new index order. |
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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.