# NOT RUN {
### Default input
buttonGroupInput(
id = "group1",
choices = c("Once", "Twice", "Thrice"),
values = c(1, 2, 3)
)
### Styling the button group
buttonGroupInput(
id = "group2",
choices = c("Button 1", "Button 2", "Button 3")
) %>%
background("blue") %>%
width("1/3")
# }
Run the code above in your browser using DataLab