# 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