# NOT RUN {
### Dropdown with buttons
dropdown(
label = "Choices",
buttonInput("choice1", "Choice 1"),
buttonInput("choice2", "Choice 2"),
buttonInput("choice3", "Choice 3")
)
### Dropdown with links
dropdown(
label = "Choices",
linkInput("link1", "Choice 1"),
linkInput("link2", "Choice 2")
)
### Grouped sections
dropdown(
label = "Sections",
h6("Section 1"),
buttonInput("a", "Option A"),
buttonInput("b", "Option B"),
hr(),
h6("Section 2"),
buttonInput("c", "Option C"),
buttonInput("d", "Option D")
)
### Direction variations
dropdown(
label = "Up!",
direction = "up",
buttonInput("up1", "Choice 1"),
buttonInput("up2", "Choice 2")
)
### Dropdowns with forms
dropdown(
label = "Sign in",
formInput(
id = "login",
formGroup(
label = "Username / Email",
textInput(
type = "email",
id = "user"
)
),
formGroup(
label = "Password",
textInput(
type = "password",
id = "pass"
)
),
formSubmit(
label = "Sign in",
value = "signin"
)
) %>%
padding(3, 4, 3, 4)
)
# }
Run the code above in your browser using DataLab