# NOT RUN {
### Modifying input elements
checkbarInput(
id = "bar1",
choices = c(
"Nunc rutrum turpis sed pede.",
"Etiam vel neque.",
"Lorem ipsum dolor sit amet."
)
) %>%
background("cyan")
### Possible colors
colors <- c(
"red", "purple", "indigo", "blue", "cyan", "teal", "green",
"yellow", "amber", "orange", "grey", "white"
)
div(
lapply(
colors,
background,
tag = div() %>%
padding(5) %>%
margin(2)
)
) %>%
display("flex") %>%
flex(wrap = TRUE)
# }
Run the code above in your browser using DataLab