forked from dreamRs/shinyWidgets
-
Notifications
You must be signed in to change notification settings - Fork 0
/
appendVerticalTab.Rd
60 lines (47 loc) · 1.32 KB
/
appendVerticalTab.Rd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/vertical-tab.R
\name{appendVerticalTab}
\alias{appendVerticalTab}
\alias{removeVerticalTab}
\alias{reorderVerticalTabs}
\title{Mutate Vertical Tabset Panel}
\usage{
appendVerticalTab(inputId, tab, session = shiny::getDefaultReactiveDomain())
removeVerticalTab(inputId, index, session = shiny::getDefaultReactiveDomain())
reorderVerticalTabs(
inputId,
newOrder,
session = shiny::getDefaultReactiveDomain()
)
}
\arguments{
\item{inputId}{The id of the \code{verticalTabsetPanel} object.}
\item{tab}{The verticalTab to append.}
\item{session}{The \code{session} object passed to function given to \code{shinyServer.}}
\item{index}{The index of the the tab to remove.}
\item{newOrder}{The new index order.}
}
\description{
Mutate Vertical Tabset Panel
}
\examples{
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)
}
}