# NOT RUN {
### Change border color
div(
div() %>%
height(3) %>%
width(3) %>%
border("green"),
div() %>%
height(3) %>%
width(3) %>%
border(
color = "blue",
sides = c("left", "right")
)
)
### Round sides
sides <- c("top", "right", "bottom", "left", "circle", "all")
div(
lapply(
sides,
border,
tag = div() %>%
height(3) %>%
width(3),
color = "black"
)
) %>%
display("flex") %>%
flex(wrap = TRUE)
# }
Run the code above in your browser using DataLab