# NOT RUN {
### Using flexbox
# When using `flex()` be sure to set the display, too.
div(
lapply(
1:5,
function(i) {
div() %>%
padding(5) %>%
margin(top = c(xs = 2), bottom = c(xs = 2)) %>%
background("blue")
}
)
) %>%
display("flex") %>%
flex(
direction = c(xs = "column", sm = "row"),
justify = c(sm = "around")
)
### Printing pages
# This element is not shown when the page is printed.
div() %>%
height(4) %>%
background("orange") %>%
display(print = "none") # <-
# }
Run the code above in your browser using DataLab