# NOT RUN {
### Grouping related inputs
fieldset(
legend = "Pizza order",
formGroup(
"What toppings would you like?",
div(
checkbarInput(
id = "toppings",
choices = c(
"Cheese",
"Black olives",
"Mushrooms"
)
)
)
),
formGroup(
"Is this for delivery?",
checkboxInput(
id = "deliver",
choice = "Deliver"
)
),
buttonInput("order", "Place order") %>%
background("blue")
)
# }
Run the code above in your browser using DataLab