# NOT RUN {
### One option
checkboxInput(
id = "checkbox1",
choices = "Choice 1",
selected = "Choice 1"
)
### Multiple options
checkboxInput(
id = "checkbox2",
choices = c("Choice 1", "Choice 2")
)
### Inline checkbox
checkboxInput(
id = "checkbox3",
choices = c("Choice 1", "Choice 2", "Choice 3"),
inline = TRUE
)
### Switches
switchInput(
id = "switch1",
choices = paste("Switch choice", 1:3),
selected = "Switch choice 3"
) %>%
active("indigo")
# }
Run the code above in your browser using DataLab