# NOT RUN {
### Default checkbar
checkbarInput(
id = "cb1",
choices = c("When", "Why", "Where")
)
### Modifying background color
checkbarInput(
id = "cb2",
choices = c("What", "Which")
) %>%
background("teal")
### Labeling a checkbar
formGroup(
label = "Toppings",
checkbarInput(
id = "fixins",
choices = c(
"Sprinkles",
"Nuts",
"Fudge"
)
)
)
# }
Run the code above in your browser using DataLab