# NOT RUN {
### Radiobar example
radiobarInput(
id = "radio1",
choices = c("Hello", "Goodnight", "Howdy")
) %>%
width(16) %>%
active("orange") # <-
### Checkbox example
checkboxInput(
id = "check1",
choices = c("Rock", "Paper", "Scissors"),
selected = "Rock"
) %>%
active("teal")
### Chip input
chipInput(
id = "chip1",
choices = c("Ether", "Bombos", "Quake"),
selected = "Ether"
) %>%
width("1/2") %>%
active("green")
# }
Run the code above in your browser using DataLab